/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / 3D-Creator / source / DBIBeditor.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 80 c3 00 80 33 20 2e | 6c 00 00 3b 43 68 61 6e |.....3 .|l..;Chan|
|00000010| 67 65 44 69 72 20 22 77 | 6f 72 6b 3a 70 72 6f 67 |geDir "w|ork:prog|
|00000020| 72 61 6d 73 2f 64 62 69 | 62 2f 22 20 3b 20 63 68 |rams/dbi|b/" ; ch|
|00000030| 61 6e 67 65 20 74 68 69 | 73 21 00 00 4e 3d 39 20 |ange thi|s!..N=9 |
|00000040| 3a 20 4e 53 3d 31 39 31 | 20 3a 20 4e 4f 3d 31 32 |: NS=191| : NO=12|
|00000050| 38 20 3a 20 4e 45 3d 33 | 32 20 3a 20 4e 4c 3d 31 |8 : NE=3|2 : NL=1|
|00000060| 32 38 00 80 32 20 70 61 | 24 3d 31 36 30 20 3a 20 |28..2 pa|$=160 : |
|00000070| 80 32 20 66 69 24 3d 36 | 34 20 3a 20 80 32 20 70 |.2 fi$=6|4 : .2 p|
|00000080| 61 74 24 3d 31 36 30 20 | 3a 20 80 32 20 70 61 6f |at$=160 |: .2 pao|
|00000090| 24 3d 31 36 30 20 3a 20 | 80 32 20 70 61 6d 24 3d |$=160 : |.2 pam$=|
|000000a0| 31 36 30 00 70 61 24 3d | 22 22 20 3a 20 70 61 74 |160.pa$=|"" : pat|
|000000b0| 24 3d 22 74 65 78 74 75 | 72 65 73 22 20 3a 20 70 |$="textu|res" : p|
|000000c0| 61 6f 24 3d 22 6f 62 6a | 65 63 74 73 22 20 3a 20 |ao$="obj|ects" : |
|000000d0| 70 61 6d 24 3d 22 6d 61 | 70 73 22 00 77 68 67 68 |pam$="ma|ps".whgh|
|000000e0| 74 3d 31 32 38 00 73 63 | 3d 38 00 80 04 20 78 67 |t=128.sc|=8... xg|
|000000f0| 28 31 2c 4e 2c 4e 53 29 | 20 3a 20 80 04 20 79 67 |(1,N,NS)| : .. yg|
|00000100| 28 31 2c 4e 2c 4e 53 29 | 20 3a 20 80 04 20 74 78 |(1,N,NS)| : .. tx|
|00000110| 77 28 31 2c 4e 2c 4e 53 | 29 00 80 04 20 6a 6f 69 |w(1,N,NS|)... joi|
|00000120| 6e 28 4e 2c 4e 53 29 20 | 3a 20 80 04 20 74 6f 70 |n(N,NS) |: .. top|
|00000130| 28 4e 2c 4e 53 29 20 3a | 20 80 04 20 62 6f 74 74 |(N,NS) :| .. bott|
|00000140| 6f 6d 28 4e 2c 4e 53 29 | 00 80 04 20 63 6f 75 6e |om(N,NS)|... coun|
|00000150| 74 28 4e 53 29 20 3a 20 | 80 04 20 68 65 69 67 68 |t(NS) : |.. heigh|
|00000160| 74 28 31 2c 4e 53 29 20 | 3a 20 80 04 20 74 78 28 |t(1,NS) |: .. tx(|
|00000170| 31 2c 4e 53 29 00 80 04 | 20 65 66 66 65 63 74 28 |1,NS)...| effect(|
|00000180| 4e 53 29 00 80 04 20 73 | 65 6c 65 63 74 65 64 28 |NS)... s|elected(|
|00000190| 4e 53 29 20 3a 20 80 04 | 20 6b 69 6c 6c 28 31 30 |NS) : ..| kill(10|
|000001a0| 30 29 00 80 04 20 6f 78 | 28 4e 4f 2b 4e 45 29 20 |0)... ox|(NO+NE) |
|000001b0| 3a 20 80 04 20 6f 79 28 | 4e 4f 2b 4e 45 29 20 3a |: .. oy(|NO+NE) :|
|000001c0| 20 80 04 20 6f 73 65 63 | 28 4e 4f 2b 4e 45 29 20 | .. osec|(NO+NE) |
|000001d0| 3a 20 80 04 20 6f 69 6d | 61 67 65 28 31 2c 4e 4f |: .. oim|age(1,NO|
|000001e0| 2b 4e 45 29 20 3a 20 80 | 04 20 6f 6d 6f 64 65 28 |+NE) : .|. omode(|
|000001f0| 31 2c 4e 4f 2b 4e 45 29 | 00 80 04 20 6f 68 69 74 |1,NO+NE)|... ohit|
|00000200| 28 4e 4f 2b 4e 45 29 20 | 3a 20 80 04 20 6f 70 69 |(NO+NE) |: .. opi|
|00000210| 63 6b 28 4e 4f 2b 4e 45 | 29 20 3a 20 80 04 20 6f |ck(NO+NE|) : .. o|
|00000220| 73 6f 75 6e 64 28 4e 4f | 2b 4e 45 29 00 80 04 20 |sound(NO|+NE)... |
|00000230| 6c 78 28 4e 4c 29 20 3a | 20 80 04 20 6c 79 28 4e |lx(NL) :| .. ly(N|
|00000240| 4c 29 20 3a 20 80 04 20 | 6c 6c 28 4e 4c 29 00 80 |L) : .. |ll(NL)..|
|00000250| 04 20 73 65 63 6c 28 37 | 2c 4e 53 29 00 80 04 20 |. secl(7|,NS)... |
|00000260| 64 6f 6f 72 28 36 2c 31 | 35 29 20 3a 20 80 04 20 |door(6,1|5) : .. |
|00000270| 6c 69 66 74 28 34 2c 31 | 35 29 20 3a 20 80 04 20 |lift(4,1|5) : .. |
|00000280| 73 77 69 74 63 68 28 33 | 2c 31 35 29 00 80 04 20 |switch(3|,15)... |
|00000290| 77 74 79 70 65 28 35 2c | 39 29 20 3a 20 80 04 20 |wtype(5,|9) : .. |
|000002a0| 65 74 79 70 65 28 39 2c | 39 29 00 80 04 20 61 6c |etype(9,|9)... al|
|000002b0| 69 73 74 28 31 35 2c 31 | 35 29 20 3a 20 80 04 20 |ist(15,1|5) : .. |
|000002c0| 61 6d 61 70 28 31 35 2c | 31 35 29 20 3a 20 80 04 |amap(15,|15) : ..|
|000002d0| 20 61 74 79 70 65 28 31 | 35 29 00 00 80 01 20 2e | atype(1|5).... .|
|000002e0| 6c 73 20 3a 20 61 2e 77 | 20 3a 20 6e 24 20 3a 20 |ls : a.w| : n$ : |
|000002f0| 80 02 20 80 01 00 80 04 | 20 80 b3 20 62 6c 61 6e |.. .....| .. blan|
|00000300| 6b 2e 6c 73 28 34 38 29 | 20 3a 20 80 04 20 62 6e |k.ls(48)| : .. bn|
|00000310| 6f 28 34 38 29 00 00 3b | 20 74 68 65 73 65 20 68 |o(48)..;| these h|
|00000320| 6f 6c 64 20 6c 69 73 74 | 73 20 6f 66 20 69 74 65 |old list|s of ite|
|00000330| 6d 73 20 75 73 65 64 20 | 69 6e 20 74 68 65 20 6c |ms used |in the l|
|00000340| 65 76 65 6c 00 00 80 04 | 20 74 65 78 74 75 72 65 |evel....| texture|
|00000350| 24 28 34 38 29 00 80 04 | 20 6f 62 6a 65 63 74 24 |$(48)...| object$|
|00000360| 28 34 38 29 00 80 04 20 | 65 6e 65 6d 79 24 28 39 |(48)... |enemy$(9|
|00000370| 29 00 80 04 20 77 65 61 | 70 6f 6e 24 28 39 29 00 |)... wea|pon$(9).|
|00000380| 80 04 20 73 66 78 24 28 | 39 29 00 80 04 20 61 6e |.. sfx$(|9)... an|
|00000390| 69 6d 61 74 65 24 28 31 | 35 29 00 00 3b 4c 6f 61 |imate$(1|5)..;Loa|
|000003a0| 64 53 68 61 70 65 20 31 | 2c 22 44 42 49 42 3a 62 |dShape 1|,"DBIB:b|
|000003b0| 75 74 74 6f 6e 73 2f 62 | 75 74 74 6f 6e 31 2e 69 |uttons/b|utton1.i|
|000003c0| 66 66 22 00 3b 4c 6f 61 | 64 53 68 61 70 65 20 32 |ff".;Loa|dShape 2|
|000003d0| 2c 22 44 42 49 42 3a 62 | 75 74 74 6f 6e 73 2f 62 |,"DBIB:b|uttons/b|
|000003e0| 75 74 74 6f 6e 33 2e 69 | 66 66 22 00 3b 4c 6f 61 |utton3.i|ff".;Loa|
|000003f0| 64 53 68 61 70 65 20 33 | 2c 22 44 42 49 42 3a 62 |dShape 3|,"DBIB:b|
|00000400| 75 74 74 6f 6e 73 2f 62 | 75 74 74 6f 6e 34 2e 69 |uttons/b|utton4.i|
|00000410| 66 66 22 00 3b 4c 6f 61 | 64 53 68 61 70 65 20 34 |ff".;Loa|dShape 4|
|00000420| 2c 22 44 42 49 42 3a 62 | 75 74 74 6f 6e 73 2f 62 |,"DBIB:b|uttons/b|
|00000430| 75 74 74 6f 6e 35 2e 69 | 66 66 22 00 3b 4c 6f 61 |utton5.i|ff".;Loa|
|00000440| 64 53 68 61 70 65 20 35 | 2c 22 44 42 49 42 3a 62 |dShape 5|,"DBIB:b|
|00000450| 75 74 74 6f 6e 73 2f 62 | 75 74 74 6f 6e 36 2e 69 |uttons/b|utton6.i|
|00000460| 66 66 22 00 3b 4c 6f 61 | 64 53 68 61 70 65 20 36 |ff".;Loa|dShape 6|
|00000470| 2c 22 44 42 49 42 3a 62 | 75 74 74 6f 6e 73 2f 62 |,"DBIB:b|uttons/b|
|00000480| 75 74 74 6f 6e 37 2e 69 | 66 66 22 00 3b 4c 6f 61 |utton7.i|ff".;Loa|
|00000490| 64 53 68 61 70 65 20 37 | 2c 22 44 42 49 42 3a 62 |dShape 7|,"DBIB:b|
|000004a0| 75 74 74 6f 6e 73 2f 62 | 75 74 74 6f 6e 38 2e 69 |uttons/b|utton8.i|
|000004b0| 66 66 22 00 3b 4c 6f 61 | 64 53 68 61 70 65 20 38 |ff".;Loa|dShape 8|
|000004c0| 2c 22 44 42 49 42 3a 62 | 75 74 74 6f 6e 73 2f 62 |,"DBIB:b|uttons/b|
|000004d0| 75 74 74 6f 6e 39 2e 69 | 66 66 22 00 3b 4c 6f 61 |utton9.i|ff".;Loa|
|000004e0| 64 53 68 61 70 65 20 39 | 2c 22 44 42 49 42 3a 62 |dShape 9|,"DBIB:b|
|000004f0| 75 74 74 6f 6e 73 2f 62 | 75 74 74 6f 6e 31 31 2e |uttons/b|utton11.|
|00000500| 69 66 66 22 00 3b 4c 6f | 61 64 53 68 61 70 65 20 |iff".;Lo|adShape |
|00000510| 31 30 2c 22 44 42 49 42 | 3a 62 75 74 74 6f 6e 73 |10,"DBIB|:buttons|
|00000520| 2f 62 75 74 74 6f 6e 31 | 30 2e 69 66 66 22 00 3b |/button1|0.iff".;|
|00000530| 4c 6f 61 64 53 68 61 70 | 65 20 31 31 2c 22 44 42 |LoadShap|e 11,"DB|
|00000540| 49 42 3a 62 75 74 74 6f | 6e 73 2f 62 75 74 74 6f |IB:butto|ns/butto|
|00000550| 6e 32 2e 69 66 66 22 00 | 3b 4c 6f 61 64 53 68 61 |n2.iff".|;LoadSha|
|00000560| 70 65 20 31 32 2c 22 44 | 42 49 42 3a 62 75 74 74 |pe 12,"D|BIB:butt|
|00000570| 6f 6e 73 2f 62 75 74 74 | 6f 6e 31 32 2e 69 66 66 |ons/butt|on12.iff|
|00000580| 22 00 3b 4c 6f 61 64 53 | 68 61 70 65 20 31 33 2c |".;LoadS|hape 13,|
|00000590| 22 44 42 49 42 3a 62 75 | 74 74 6f 6e 73 2f 62 75 |"DBIB:bu|ttons/bu|
|000005a0| 74 74 6f 6e 31 33 2e 69 | 66 66 22 00 3b 4c 6f 61 |tton13.i|ff".;Loa|
|000005b0| 64 53 68 61 70 65 20 31 | 34 2c 22 44 42 49 42 3a |dShape 1|4,"DBIB:|
|000005c0| 62 75 74 74 6f 6e 73 2f | 62 75 74 74 6f 6e 31 34 |buttons/|button14|
|000005d0| 2e 69 66 66 22 00 3b 4c | 6f 61 64 53 68 61 70 65 |.iff".;L|oadShape|
|000005e0| 20 31 35 2c 22 44 42 49 | 42 3a 62 75 74 74 6f 6e | 15,"DBI|B:button|
|000005f0| 73 2f 62 75 74 74 6f 6e | 31 35 2e 69 66 66 22 00 |s/button|15.iff".|
|00000600| 3b 4c 6f 61 64 53 68 61 | 70 65 20 31 36 2c 22 44 |;LoadSha|pe 16,"D|
|00000610| 42 49 42 3a 62 75 74 74 | 6f 6e 73 2f 62 75 74 74 |BIB:butt|ons/butt|
|00000620| 6f 6e 31 38 2e 69 66 66 | 22 00 3b 4c 6f 61 64 53 |on18.iff|".;LoadS|
|00000630| 68 61 70 65 20 31 37 2c | 22 44 42 49 42 3a 62 75 |hape 17,|"DBIB:bu|
|00000640| 74 74 6f 6e 73 2f 62 75 | 74 74 6f 6e 31 36 2e 69 |ttons/bu|tton16.i|
|00000650| 66 66 22 00 3b 4c 6f 61 | 64 53 68 61 70 65 20 31 |ff".;Loa|dShape 1|
|00000660| 38 2c 22 44 42 49 42 3a | 62 75 74 74 6f 6e 73 2f |8,"DBIB:|buttons/|
|00000670| 62 75 74 74 6f 6e 31 37 | 2e 69 66 66 22 00 3b 4c |button17|.iff".;L|
|00000680| 6f 61 64 53 68 61 70 65 | 20 31 39 2c 22 44 42 49 |oadShape| 19,"DBI|
|00000690| 42 3a 62 75 74 74 6f 6e | 73 2f 62 75 74 74 6f 6e |B:button|s/button|
|000006a0| 31 39 2e 69 66 66 22 00 | 3b 4c 6f 61 64 53 68 61 |19.iff".|;LoadSha|
|000006b0| 70 65 20 32 30 2c 22 44 | 42 49 42 3a 62 75 74 74 |pe 20,"D|BIB:butt|
|000006c0| 6f 6e 73 2f 62 75 74 74 | 6f 6e 32 30 2e 69 66 66 |ons/butt|on20.iff|
|000006d0| 22 00 3b 4c 6f 61 64 53 | 68 61 70 65 20 32 31 2c |".;LoadS|hape 21,|
|000006e0| 22 44 42 49 42 3a 62 75 | 74 74 6f 6e 73 2f 62 75 |"DBIB:bu|ttons/bu|
|000006f0| 74 74 6f 6e 32 31 2e 69 | 66 66 22 00 3b 4c 6f 61 |tton21.i|ff".;Loa|
|00000700| 64 53 68 61 70 65 20 32 | 32 2c 22 44 42 49 42 3a |dShape 2|2,"DBIB:|
|00000710| 62 75 74 74 6f 6e 73 2f | 62 75 74 74 6f 6e 32 32 |buttons/|button22|
|00000720| 2e 69 66 66 22 00 3b 4c | 6f 61 64 53 68 61 70 65 |.iff".;L|oadShape|
|00000730| 20 32 33 2c 22 44 42 49 | 42 3a 62 75 74 74 6f 6e | 23,"DBI|B:button|
|00000740| 73 2f 62 75 74 74 6f 6e | 32 33 2e 69 66 66 22 00 |s/button|23.iff".|
|00000750| 3b 4c 6f 61 64 53 68 61 | 70 65 20 32 34 2c 22 44 |;LoadSha|pe 24,"D|
|00000760| 42 49 42 3a 62 75 74 74 | 6f 6e 73 2f 62 75 74 74 |BIB:butt|ons/butt|
|00000770| 6f 6e 32 34 2e 69 66 66 | 22 00 3b 4c 6f 61 64 53 |on24.iff|".;LoadS|
|00000780| 68 61 70 65 20 32 35 2c | 22 44 42 49 42 3a 62 75 |hape 25,|"DBIB:bu|
|00000790| 74 74 6f 6e 73 2f 62 75 | 74 74 6f 6e 32 35 2e 69 |ttons/bu|tton25.i|
|000007a0| 66 66 22 00 3b 4c 6f 61 | 64 53 68 61 70 65 20 32 |ff".;Loa|dShape 2|
|000007b0| 36 2c 22 44 42 49 42 3a | 62 75 74 74 6f 6e 73 2f |6,"DBIB:|buttons/|
|000007c0| 62 75 74 74 6f 6e 32 36 | 2e 69 66 66 22 00 3b 4c |button26|.iff".;L|
|000007d0| 6f 61 64 53 68 61 70 65 | 20 32 37 2c 22 44 42 49 |oadShape| 27,"DBI|
|000007e0| 42 3a 62 75 74 74 6f 6e | 73 2f 62 75 74 74 6f 6e |B:button|s/button|
|000007f0| 32 37 2e 69 66 66 22 00 | 3b 4c 6f 61 64 53 68 61 |27.iff".|;LoadSha|
|00000800| 70 65 20 32 38 2c 22 44 | 42 49 42 3a 62 75 74 74 |pe 28,"D|BIB:butt|
|00000810| 6f 6e 73 2f 62 75 74 74 | 6f 6e 32 38 2e 69 66 66 |ons/butt|on28.iff|
|00000820| 22 00 3b 4c 6f 61 64 53 | 68 61 70 65 20 32 39 2c |".;LoadS|hape 29,|
|00000830| 22 44 42 49 42 3a 62 75 | 74 74 6f 6e 73 2f 62 75 |"DBIB:bu|ttons/bu|
|00000840| 74 74 6f 6e 32 39 2e 69 | 66 66 22 00 3b 4c 6f 61 |tton29.i|ff".;Loa|
|00000850| 64 53 68 61 70 65 20 33 | 30 2c 22 44 42 49 42 3a |dShape 3|0,"DBIB:|
|00000860| 62 75 74 74 6f 6e 73 2f | 62 75 74 74 6f 6e 33 30 |buttons/|button30|
|00000870| 2e 69 66 66 22 00 00 cd | 0a 20 31 2c 70 61 24 2b |.iff"...|. 1,pa$+|
|00000880| 22 62 75 74 74 6f 6e 73 | 2e 73 68 70 22 00 3b 53 |"buttons|.shp".;S|
|00000890| 61 76 65 53 68 61 70 65 | 73 20 31 2c 33 30 2c 70 |aveShape|s 1,30,p|
|000008a0| 61 24 2b 22 62 75 74 74 | 6f 6e 73 2e 73 68 70 22 |a$+"butt|ons.shp"|
|000008b0| 00 00 3b 20 73 65 74 20 | 75 70 20 62 75 74 74 6f |..; set |up butto|
|000008c0| 6e 73 00 00 c6 04 20 30 | 2c 32 2c 31 2c 30 2c 31 |ns.... 0|,2,1,0,1|
|000008d0| 2c 31 00 c6 04 20 30 2c | 32 38 2c 31 2c 30 2c 32 |,1... 0,|28,1,0,2|
|000008e0| 2c 32 00 c6 04 20 30 2c | 32 2c 31 37 2c 30 2c 33 |,2... 0,|2,17,0,3|
|000008f0| 2c 33 00 c6 04 20 30 2c | 32 38 2c 31 37 2c 30 2c |,3... 0,|28,17,0,|
|00000900| 34 2c 34 00 c6 04 20 30 | 2c 32 2c 33 33 2c 30 2c |4,4... 0|,2,33,0,|
|00000910| 35 2c 35 00 c6 04 20 30 | 2c 32 38 2c 33 33 2c 30 |5,5... 0|,28,33,0|
|00000920| 2c 36 2c 36 00 c6 04 20 | 30 2c 32 2c 34 39 2c 30 |,6,6... |0,2,49,0|
|00000930| 2c 39 2c 39 00 c6 04 20 | 30 2c 32 38 2c 34 39 2c |,9,9... |0,28,49,|
|00000940| 30 2c 31 30 2c 31 30 00 | c6 04 20 30 2c 32 2c 36 |0,10,10.|.. 0,2,6|
|00000950| 35 2c 30 2c 31 31 2c 31 | 31 00 c6 04 20 30 2c 32 |5,0,11,1|1... 0,2|
|00000960| 38 2c 36 35 2c 30 2c 31 | 32 2c 31 32 00 c6 04 20 |8,65,0,1|2,12... |
|00000970| 30 2c 32 2c 38 31 2c 30 | 2c 31 33 2c 31 33 00 c6 |0,2,81,0|,13,13..|
|00000980| 04 20 30 2c 32 38 2c 38 | 31 2c 30 2c 31 34 2c 31 |. 0,28,8|1,0,14,1|
|00000990| 34 00 c6 04 20 30 2c 32 | 2c 39 37 2c 30 2c 31 35 |4... 0,2|,97,0,15|
|000009a0| 2c 31 35 00 c6 04 20 30 | 2c 32 38 2c 39 37 2c 30 |,15... 0|,28,97,0|
|000009b0| 2c 31 36 2c 31 36 00 c6 | 04 20 30 2c 32 2c 31 31 |,16,16..|. 0,2,11|
|000009c0| 33 2c 30 2c 31 37 2c 31 | 37 00 c6 04 20 30 2c 32 |3,0,17,1|7... 0,2|
|000009d0| 38 2c 31 31 33 2c 30 2c | 31 38 2c 31 38 00 c6 04 |8,113,0,|18,18...|
|000009e0| 20 30 2c 32 2c 31 32 39 | 2c 30 2c 31 39 2c 31 39 | 0,2,129|,0,19,19|
|000009f0| 00 c6 04 20 30 2c 32 38 | 2c 31 32 39 2c 30 2c 32 |... 0,28|,129,0,2|
|00000a00| 30 2c 32 30 00 c6 04 20 | 30 2c 32 2c 31 34 35 2c |0,20... |0,2,145,|
|00000a10| 30 2c 32 31 2c 32 31 00 | c6 04 20 30 2c 32 38 2c |0,21,21.|.. 0,28,|
|00000a20| 31 34 35 2c 30 2c 32 32 | 2c 32 32 00 c6 04 20 30 |145,0,22|,22... 0|
|00000a30| 2c 32 2c 31 36 31 2c 30 | 2c 32 33 2c 32 33 00 c6 |,2,161,0|,23,23..|
|00000a40| 04 20 30 2c 32 38 2c 31 | 36 31 2c 30 2c 32 34 2c |. 0,28,1|61,0,24,|
|00000a50| 32 34 00 c6 04 20 30 2c | 32 2c 31 37 37 2c 30 2c |24... 0,|2,177,0,|
|00000a60| 32 35 2c 32 35 00 c6 04 | 20 30 2c 32 38 2c 31 37 |25,25...| 0,28,17|
|00000a70| 37 2c 30 2c 32 36 2c 32 | 36 00 c6 04 20 30 2c 32 |7,0,26,2|6... 0,2|
|00000a80| 2c 31 39 33 2c 30 2c 32 | 37 2c 32 37 00 c6 04 20 |,193,0,2|7,27... |
|00000a90| 30 2c 32 38 2c 31 39 33 | 2c 30 2c 32 38 2c 32 38 |0,28,193|,0,28,28|
|00000aa0| 00 c6 04 20 30 2c 32 2c | 32 30 39 2c 30 2c 32 39 |... 0,2,|209,0,29|
|00000ab0| 2c 32 39 00 c6 04 20 30 | 2c 32 38 2c 32 30 39 2c |,29... 0|,28,209,|
|00000ac0| 30 2c 33 30 2c 33 30 00 | 00 3b 20 73 65 74 20 75 |0,30,30.|.; set u|
|00000ad0| 70 20 6d 65 6e 75 73 00 | 00 c4 07 20 31 2c 31 00 |p menus.|... 1,1.|
|00000ae0| c4 08 20 38 30 2c 30 00 | 00 c4 01 20 30 2c 30 2c |.. 80,0.|... 0,0,|
|00000af0| 22 50 72 6f 6a 65 63 74 | 20 22 00 c4 03 20 30 2c |"Project| "... 0,|
|00000b00| 30 2c 30 2c 30 2c 22 4e | 65 77 20 20 20 20 20 20 |0,0,0,"N|ew      |
|00000b10| 20 20 20 20 20 22 00 c4 | 03 20 30 2c 30 2c 30 2c |     "..|. 0,0,0,|
|00000b20| 31 2c 22 4f 70 65 6e 2e | 2e 2e 22 00 c4 03 20 30 |1,"Open.|.."... 0|
|00000b30| 2c 30 2c 30 2c 32 2c 22 | 4f 70 65 6e 20 6d 61 70 |,0,0,2,"|Open map|
|00000b40| 20 6f 6e 6c 79 2e 2e 2e | 22 00 c4 03 20 30 2c 30 | only...|"... 0,0|
|00000b50| 2c 30 2c 33 2c 22 53 61 | 76 65 22 20 3a 20 c4 0a |,0,3,"Sa|ve" : ..|
|00000b60| 20 30 2c 30 2c 33 2c 80 | c6 00 c4 03 20 30 2c 30 | 0,0,3,.|.... 0,0|
|00000b70| 2c 30 2c 34 2c 22 53 61 | 76 65 20 61 73 2e 2e 2e |,0,4,"Sa|ve as...|
|00000b80| 22 00 3b 4d 65 6e 75 49 | 74 65 6d 20 30 2c 30 2c |".;MenuI|tem 0,0,|
|00000b90| 30 2c 35 2c 22 43 72 75 | 6e 63 68 2e 2e 2e 22 20 |0,5,"Cru|nch..." |
|00000ba0| 3a 20 4d 65 6e 75 53 74 | 61 74 65 20 30 2c 30 2c |: MenuSt|ate 0,0,|
|00000bb0| 34 2c 4f 66 66 00 c4 03 | 20 30 2c 30 2c 30 2c 35 |4,Off...| 0,0,0,5|
|00000bc0| 2c 22 41 62 6f 75 74 2e | 2e 2e 22 00 c4 03 20 30 |,"About.|.."... 0|
|00000bd0| 2c 30 2c 30 2c 36 2c 22 | 51 75 69 74 22 00 00 c4 |,0,0,6,"|Quit"...|
|00000be0| 01 20 30 2c 31 2c 22 56 | 69 65 77 20 22 00 c4 03 |. 0,1,"V|iew "...|
|00000bf0| 20 30 2c 30 2c 31 2c 30 | 2c 22 44 65 74 61 69 6c | 0,0,1,0|,"Detail|
|00000c00| 2e 2e 2e 20 20 20 20 20 | 20 20 20 22 00 c4 03 20 |...     |   "... |
|00000c10| 30 2c 33 2c 31 2c 31 2c | 22 20 20 47 72 69 64 20 |0,3,1,1,|"  Grid |
|00000c20| 22 00 c4 03 20 30 2c 30 | 2c 31 2c 32 2c 22 5a 6f |"... 0,0|,1,2,"Zo|
|00000c30| 6f 6d 20 20 20 20 20 20 | 20 20 20 22 2b dc 86 28 |om      |   "+..(|
|00000c40| 31 38 37 29 00 c4 04 20 | 30 2c 32 2c 31 2c 32 2c |187)... |0,2,1,2,|
|00000c50| 30 2c 22 20 20 78 31 20 | 20 22 00 c4 04 20 30 2c |0,"  x1 | "... 0,|
|00000c60| 32 2c 31 2c 32 2c 31 2c | 22 20 20 78 32 20 20 22 |2,1,2,1,|"  x2  "|
|00000c70| 00 c4 04 20 30 2c 34 2c | 31 2c 32 2c 32 2c 22 20 |... 0,4,|1,2,2," |
|00000c80| 20 78 34 20 20 22 00 c4 | 04 20 30 2c 32 2c 31 2c | x4  "..|. 0,2,1,|
|00000c90| 32 2c 33 2c 22 20 20 78 | 38 20 20 22 00 c4 04 20 |2,3,"  x|8  "... |
|00000ca0| 30 2c 32 2c 31 2c 32 2c | 34 2c 22 20 20 78 31 36 |0,2,1,2,|4,"  x16|
|00000cb0| 20 20 22 00 c4 03 20 30 | 2c 30 2c 31 2c 33 2c 22 |  "... 0|,0,1,3,"|
|00000cc0| 45 79 65 20 6c 65 76 65 | 6c 22 00 c4 03 20 30 2c |Eye leve|l"... 0,|
|00000cd0| 31 2c 31 2c 34 2c 22 20 | 20 45 79 65 20 6c 65 76 |1,1,4," | Eye lev|
|00000ce0| 65 6c 20 63 68 65 63 6b | 22 00 c4 03 20 30 2c 30 |el check|"... 0,0|
|00000cf0| 2c 31 2c 35 2c 22 53 65 | 6c 65 63 74 20 61 6c 6c |,1,5,"Se|lect all|
|00000d00| 22 00 00 c4 01 20 30 2c | 32 2c 22 54 65 78 74 75 |".... 0,|2,"Textu|
|00000d10| 72 65 73 20 22 00 c4 03 | 20 30 2c 30 2c 32 2c 30 |res "...| 0,0,2,0|
|00000d20| 2c 22 43 6f 6e 76 65 72 | 74 20 74 65 78 74 75 72 |,"Conver|t textur|
|00000d30| 65 2e 2e 2e 22 00 c4 03 | 20 30 2c 30 2c 32 2c 31 |e..."...| 0,0,2,1|
|00000d40| 2c 22 41 64 64 20 74 65 | 78 74 75 72 65 2e 2e 2e |,"Add te|xture...|
|00000d50| 22 00 c4 03 20 30 2c 30 | 2c 32 2c 32 2c 22 52 65 |"... 0,0|,2,2,"Re|
|00000d60| 6d 6f 76 65 20 74 65 78 | 74 75 72 65 2e 2e 2e 22 |move tex|ture..."|
|00000d70| 00 c4 03 20 30 2c 30 2c | 32 2c 33 2c 22 52 65 6e |... 0,0,|2,3,"Ren|
|00000d80| 61 6d 65 20 74 65 78 74 | 75 72 65 2e 2e 2e 22 00 |ame text|ure...".|
|00000d90| 00 c4 01 20 30 2c 33 2c | 22 4f 62 6a 65 63 74 73 |... 0,3,|"Objects|
|00000da0| 20 22 00 c4 03 20 30 2c | 30 2c 33 2c 30 2c 22 47 | "... 0,|0,3,0,"G|
|00000db0| 72 61 62 20 69 6d 61 67 | 65 2e 2e 2e 20 20 20 20 |rab imag|e...    |
|00000dc0| 20 20 20 22 00 c4 03 20 | 30 2c 30 2c 33 2c 31 2c |   "... |0,0,3,1,|
|00000dd0| 22 41 64 64 20 69 6d 61 | 67 65 2e 2e 2e 22 00 c4 |"Add ima|ge..."..|
|00000de0| 03 20 30 2c 30 2c 33 2c | 32 2c 22 52 65 6d 6f 76 |. 0,0,3,|2,"Remov|
|00000df0| 65 20 69 6d 61 67 65 2e | 2e 2e 22 00 c4 03 20 30 |e image.|.."... 0|
|00000e00| 2c 30 2c 33 2c 33 2c 22 | 52 65 6e 61 6d 65 20 69 |,0,3,3,"|Rename i|
|00000e10| 6d 61 67 65 2e 2e 2e 22 | 00 c4 03 20 30 2c 30 2c |mage..."|... 0,0,|
|00000e20| 33 2c 34 2c 22 53 65 6c | 65 63 74 20 70 69 63 74 |3,4,"Sel|ect pict|
|00000e30| 75 72 65 2e 2e 2e 22 00 | c4 03 20 30 2c 31 2c 33 |ure...".|.. 0,1,3|
|00000e40| 2c 35 2c 22 20 20 4f 6e | 65 2d 70 6f 69 6e 74 20 |,5,"  On|e-point |
|00000e50| 67 72 61 62 62 69 6e 67 | 22 00 00 c4 01 20 30 2c |grabbing|".... 0,|
|00000e60| 34 2c 22 45 6e 65 6d 69 | 65 73 20 22 00 c4 03 20 |4,"Enemi|es "... |
|00000e70| 30 2c 30 2c 34 2c 30 2c | 22 47 72 61 62 20 65 6e |0,0,4,0,|"Grab en|
|00000e80| 65 6d 79 2e 2e 2e 20 20 | 22 00 c4 03 20 30 2c 30 |emy...  |"... 0,0|
|00000e90| 2c 34 2c 31 2c 22 41 64 | 64 20 65 6e 65 6d 79 2e |,4,1,"Ad|d enemy.|
|00000ea0| 2e 2e 20 20 20 22 00 c4 | 03 20 30 2c 30 2c 34 2c |..   "..|. 0,0,4,|
|00000eb0| 32 2c 22 52 65 6d 6f 76 | 65 20 65 6e 65 6d 79 2e |2,"Remov|e enemy.|
|00000ec0| 2e 2e 22 00 c4 03 20 30 | 2c 30 2c 34 2c 33 2c 22 |.."... 0|,0,4,3,"|
|00000ed0| 52 65 6e 61 6d 65 20 65 | 6e 65 6d 79 2e 2e 2e 22 |Rename e|nemy..."|
|00000ee0| 00 c4 03 20 30 2c 30 2c | 34 2c 34 2c 22 50 72 6f |... 0,0,|4,4,"Pro|
|00000ef0| 70 65 72 74 69 65 73 2e | 2e 2e 22 00 00 c4 01 20 |perties.|..".... |
|00000f00| 30 2c 35 2c 22 57 65 61 | 70 6f 6e 73 20 22 00 c4 |0,5,"Wea|pons "..|
|00000f10| 03 20 30 2c 30 2c 35 2c | 30 2c 22 41 64 64 20 77 |. 0,0,5,|0,"Add w|
|00000f20| 65 61 70 6f 6e 2e 2e 2e | 20 20 20 22 00 c4 03 20 |eapon...|   "... |
|00000f30| 30 2c 30 2c 35 2c 31 2c | 22 52 65 6d 6f 76 65 20 |0,0,5,1,|"Remove |
|00000f40| 77 65 61 70 6f 6e 2e 2e | 2e 22 00 c4 03 20 30 2c |weapon..|."... 0,|
|00000f50| 30 2c 35 2c 32 2c 22 52 | 65 6e 61 6d 65 20 77 65 |0,5,2,"R|ename we|
|00000f60| 61 70 6f 6e 2e 2e 2e 22 | 00 c4 03 20 30 2c 30 2c |apon..."|... 0,0,|
|00000f70| 35 2c 33 2c 22 50 72 6f | 70 65 72 74 69 65 73 2e |5,3,"Pro|perties.|
|00000f80| 2e 2e 22 00 00 c4 01 20 | 30 2c 36 2c 22 53 6f 75 |..".... |0,6,"Sou|
|00000f90| 6e 64 73 20 22 00 c4 03 | 20 30 2c 30 2c 36 2c 30 |nds "...| 0,0,6,0|
|00000fa0| 2c 22 41 64 64 20 73 6f | 75 6e 64 2e 2e 2e 20 20 |,"Add so|und...  |
|00000fb0| 20 22 00 c4 03 20 30 2c | 30 2c 36 2c 31 2c 22 52 | "... 0,|0,6,1,"R|
|00000fc0| 65 6d 6f 76 65 20 73 6f | 75 6e 64 2e 2e 2e 22 00 |emove so|und...".|
|00000fd0| c4 03 20 30 2c 30 2c 36 | 2c 32 2c 22 52 65 6e 61 |.. 0,0,6|,2,"Rena|
|00000fe0| 6d 65 20 73 6f 75 6e 64 | 2e 2e 2e 22 00 00 c4 01 |me sound|..."....|
|00000ff0| 20 30 2c 37 2c 22 41 6e | 69 6d 61 74 69 6f 6e 73 | 0,7,"An|imations|
|00001000| 20 22 00 c4 03 20 30 2c | 30 2c 37 2c 30 2c 22 41 | "... 0,|0,7,0,"A|
|00001010| 64 64 20 61 6e 69 6d 61 | 74 69 6f 6e 2e 2e 2e 20 |dd anima|tion... |
|00001020| 20 20 22 00 c4 03 20 30 | 2c 30 2c 37 2c 31 2c 22 |  "... 0|,0,7,1,"|
|00001030| 52 65 6d 6f 76 65 20 61 | 6e 69 6d 61 74 69 6f 6e |Remove a|nimation|
|00001040| 2e 2e 2e 22 00 c4 03 20 | 30 2c 30 2c 37 2c 32 2c |..."... |0,0,7,2,|
|00001050| 22 50 72 6f 70 65 72 74 | 69 65 73 2e 2e 2e 22 00 |"Propert|ies...".|
|00001060| 00 3b 20 73 63 72 65 65 | 6e 20 61 6e 64 20 77 69 |.; scree|n and wi|
|00001070| 6e 64 6f 77 73 00 00 74 | 24 3d 22 44 6f 6f 6d 20 |ndows..t|$="Doom |
|00001080| 42 75 74 20 49 6e 20 42 | 6c 69 74 7a 20 4d 61 70 |But In B|litz Map|
|00001090| 20 45 64 69 74 6f 72 22 | 00 cf 01 20 30 2c 31 30 | Editor"|... 0,10|
|000010a0| 2c 74 24 00 d0 03 20 30 | 2c 30 00 00 c5 01 20 30 |,t$... 0|,0.... 0|
|000010b0| 2c 30 2c 31 31 2c 36 33 | 2c 32 34 35 2c 24 31 34 |,0,11,63|,245,$14|
|000010c0| 30 45 2c 22 22 2c 31 2c | 32 2c 30 20 3a 20 c4 02 |0E,"",1,|2,0 : ..|
|000010d0| 20 30 00 c5 01 20 31 2c | 36 34 2c 31 31 2c 35 37 | 0... 1,|64,11,57|
|000010e0| 36 2c 32 34 35 2c 24 32 | 7c 24 34 7c 24 38 7c 24 |6,245,$2||$4|$8|$|
|000010f0| 34 30 30 2c 22 4d 61 70 | 20 78 22 2b dd 83 28 33 |400,"Map| x"+..(3|
|00001100| 32 2f 73 63 29 2c 31 2c | 32 2c 31 20 3a 20 c4 02 |2/sc),1,|2,1 : ..|
|00001110| 20 30 00 c5 44 00 00 80 | 08 20 61 62 6f 75 74 7b | 0..D...|. about{|
|00001120| 7d 00 00 20 20 69 3d a2 | 81 28 30 2c 22 41 62 6f |}..  i=.|.(0,"Abo|
|00001130| 75 74 22 2c 22 20 20 44 | 42 49 42 20 65 64 69 74 |ut","  D|BIB edit|
|00001140| 6f 72 22 2b dc 86 28 31 | 30 29 2b dc 86 28 31 30 |or"+..(1|0)+..(10|
|00001150| 29 2b 22 62 79 20 45 2e | 57 2e 43 6c 61 79 20 31 |)+"by E.|W.Clay 1|
|00001160| 39 39 37 22 2c 22 4f 6b | 22 29 00 00 80 02 20 80 |997","Ok|").... .|
|00001170| 09 00 2e 67 65 74 6c 69 | 73 74 00 80 09 20 67 65 |...getli|st... ge|
|00001180| 74 6c 69 73 74 7b 6c 2c | 74 69 74 6c 65 24 7d 00 |tlist{l,|title$}.|
|00001190| 00 20 20 3b 20 67 65 74 | 73 20 61 6e 20 69 74 65 |.  ; get|s an ite|
|000011a0| 6d 20 66 72 6f 6d 20 6f | 6e 65 20 6f 66 20 74 68 |m from o|ne of th|
|000011b0| 65 20 6c 69 73 74 73 00 | 20 20 3b 20 6c 3d 30 20 |e lists.|  ; l=0 |
|000011c0| 3e 20 74 65 78 74 75 72 | 65 00 20 20 3b 20 6c 3d |> textur|e.  ; l=|
|000011d0| 31 20 3e 20 6f 62 6a 65 | 63 74 00 20 20 3b 20 6c |1 > obje|ct.  ; l|
|000011e0| 3d 32 20 3e 20 65 6e 65 | 6d 79 00 20 20 3b 20 6c |=2 > ene|my.  ; l|
|000011f0| 3d 33 20 3e 20 77 65 61 | 70 6f 6e 00 20 20 3b 20 |=3 > wea|pon.  ; |
|00001200| 6c 3d 34 20 3e 20 73 66 | 78 00 20 20 3b 20 6c 3d |l=4 > sf|x.  ; l=|
|00001210| 35 20 3e 20 61 6e 69 6d | 61 74 69 6f 6e 00 00 20 |5 > anim|ation.. |
|00001220| 20 80 15 20 74 65 78 74 | 75 72 65 24 28 29 2c 6f | .. text|ure$(),o|
|00001230| 62 6a 65 63 74 24 28 29 | 2c 65 6e 65 6d 79 24 28 |bject$()|,enemy$(|
|00001240| 29 2c 77 65 61 70 6f 6e | 24 28 29 2c 73 66 78 24 |),weapon|$(),sfx$|
|00001250| 28 29 2c 61 6e 69 6d 61 | 74 65 24 28 29 2c 62 6c |(),anima|te$(),bl|
|00001260| 61 6e 6b 28 29 2c 62 6e | 6f 28 29 00 00 20 20 c5 |ank(),bn|o()..  .|
|00001270| 37 00 20 20 c0 07 20 62 | 6c 61 6e 6b 28 29 00 00 |7.  .. b|lank()..|
|00001280| 20 20 80 0b 20 6c 3d 30 | 00 20 20 20 20 6e 3d 30 |  .. l=0|.    n=0|
|00001290| 00 20 20 20 20 80 16 20 | 71 3d 30 20 80 18 20 34 |.    .. |q=0 .. 4|
|000012a0| 38 00 20 20 20 20 20 20 | 80 0b 20 74 65 78 74 75 |8.      |.. textu|
|000012b0| 72 65 24 28 71 29 3c 3e | 22 22 00 20 20 20 20 20 |re$(q)<>|"".     |
|000012c0| 20 20 20 69 3d c0 02 28 | 62 6c 61 6e 6b 28 29 29 |   i=..(|blank())|
|000012d0| 20 3a 20 62 6c 61 6e 6b | 28 29 5c 6e 3d 74 65 78 | : blank|()\n=tex|
|000012e0| 74 75 72 65 24 28 71 29 | 20 3a 20 62 6e 6f 28 6e |ture$(q)| : bno(n|
|000012f0| 29 3d 71 20 3a 20 6e 3d | 6e 2b 31 00 20 20 20 20 |)=q : n=|n+1.    |
|00001300| 20 20 80 02 20 80 0b 00 | 20 20 20 20 80 17 00 20 |  .. ...|    ... |
|00001310| 20 80 02 20 80 0b 00 20 | 20 80 0b 20 6c 3d 31 00 | .. ... | .. l=1.|
|00001320| 20 20 20 20 6e 3d 30 00 | 20 20 20 20 80 16 20 71 |    n=0.|    .. q|
|00001330| 3d 30 20 80 18 20 34 38 | 00 20 20 20 20 20 20 80 |=0 .. 48|.      .|
|00001340| 0b 20 6f 62 6a 65 63 74 | 24 28 71 29 3c 3e 22 22 |. object|$(q)<>""|
|00001350| 00 20 20 20 20 20 20 20 | 20 69 3d c0 02 28 62 6c |.       | i=..(bl|
|00001360| 61 6e 6b 28 29 29 20 3a | 20 62 6c 61 6e 6b 28 29 |ank()) :| blank()|
|00001370| 5c 6e 3d 6f 62 6a 65 63 | 74 24 28 71 29 20 3a 20 |\n=objec|t$(q) : |
|00001380| 62 6e 6f 28 6e 29 3d 71 | 20 3a 20 6e 3d 6e 2b 31 |bno(n)=q| : n=n+1|
|00001390| 00 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |.      .|. ...   |
|000013a0| 20 80 17 00 20 20 80 02 | 20 80 0b 00 20 20 80 0b | ...  ..| ...  ..|
|000013b0| 20 6c 3d 32 00 20 20 20 | 20 6e 3d 30 00 20 20 20 | l=2.   | n=0.   |
|000013c0| 20 80 16 20 71 3d 30 20 | 80 18 20 39 00 20 20 20 | .. q=0 |.. 9.   |
|000013d0| 20 20 20 80 0b 20 65 6e | 65 6d 79 24 28 71 29 3c |   .. en|emy$(q)<|
|000013e0| 3e 22 22 00 20 20 20 20 | 20 20 20 20 69 3d c0 02 |>"".    |    i=..|
|000013f0| 28 62 6c 61 6e 6b 28 29 | 29 20 3a 20 62 6c 61 6e |(blank()|) : blan|
|00001400| 6b 28 29 5c 6e 3d 65 6e | 65 6d 79 24 28 71 29 20 |k()\n=en|emy$(q) |
|00001410| 3a 20 62 6e 6f 28 6e 29 | 3d 71 20 3a 20 6e 3d 6e |: bno(n)|=q : n=n|
|00001420| 2b 31 00 20 20 20 20 20 | 20 80 02 20 80 0b 00 20 |+1.     | .. ... |
|00001430| 20 20 20 80 17 00 20 20 | 80 02 20 80 0b 00 20 20 |   ...  |.. ...  |
|00001440| 80 0b 20 6c 3d 33 00 20 | 20 20 20 6e 3d 30 00 20 |.. l=3. |   n=0. |
|00001450| 20 20 20 80 16 20 71 3d | 30 20 80 18 20 39 00 20 |   .. q=|0 .. 9. |
|00001460| 20 20 20 20 20 80 0b 20 | 77 65 61 70 6f 6e 24 28 |     .. |weapon$(|
|00001470| 71 29 3c 3e 22 22 00 20 | 20 20 20 20 20 20 20 69 |q)<>"". |       i|
|00001480| 3d c0 02 28 62 6c 61 6e | 6b 28 29 29 20 3a 20 62 |=..(blan|k()) : b|
|00001490| 6c 61 6e 6b 28 29 5c 6e | 3d 77 65 61 70 6f 6e 24 |lank()\n|=weapon$|
|000014a0| 28 71 29 20 3a 20 62 6e | 6f 28 6e 29 3d 71 20 3a |(q) : bn|o(n)=q :|
|000014b0| 20 6e 3d 6e 2b 31 00 20 | 20 20 20 20 20 80 02 20 | n=n+1. |     .. |
|000014c0| 80 0b 00 20 20 20 20 80 | 17 00 20 20 80 02 20 80 |...    .|..  .. .|
|000014d0| 0b 00 20 20 80 0b 20 6c | 3d 34 00 20 20 20 20 6e |..  .. l|=4.    n|
|000014e0| 3d 30 00 20 20 20 20 80 | 16 20 71 3d 30 20 80 18 |=0.    .|. q=0 ..|
|000014f0| 20 39 00 20 20 20 20 20 | 20 80 0b 20 73 66 78 24 | 9.     | .. sfx$|
|00001500| 28 71 29 3c 3e 22 22 00 | 20 20 20 20 20 20 20 20 |(q)<>"".|        |
|00001510| 69 3d c0 02 28 62 6c 61 | 6e 6b 28 29 29 20 3a 20 |i=..(bla|nk()) : |
|00001520| 62 6c 61 6e 6b 28 29 5c | 6e 3d 73 66 78 24 28 71 |blank()\|n=sfx$(q|
|00001530| 29 20 3a 20 62 6e 6f 28 | 6e 29 3d 71 20 3a 20 6e |) : bno(|n)=q : n|
|00001540| 3d 6e 2b 31 00 20 20 20 | 20 20 20 80 02 20 80 0b |=n+1.   |   .. ..|
|00001550| 00 20 20 20 20 80 17 00 | 20 20 80 02 20 80 0b 00 |.    ...|  .. ...|
|00001560| 20 20 80 0b 20 6c 3d 35 | 00 20 20 20 20 6e 3d 30 |  .. l=5|.    n=0|
|00001570| 00 20 20 20 20 80 16 20 | 71 3d 30 20 80 18 20 31 |.    .. |q=0 .. 1|
|00001580| 35 00 20 20 20 20 20 20 | 80 0b 20 61 6e 69 6d 61 |5.      |.. anima|
|00001590| 74 65 24 28 71 29 3c 3e | 22 22 00 20 20 20 20 20 |te$(q)<>|"".     |
|000015a0| 20 20 20 69 3d c0 02 28 | 62 6c 61 6e 6b 28 29 29 |   i=..(|blank())|
|000015b0| 20 3a 20 62 6c 61 6e 6b | 28 29 5c 6e 3d 61 6e 69 | : blank|()\n=ani|
|000015c0| 6d 61 74 65 24 28 71 29 | 20 3a 20 62 6e 6f 28 6e |mate$(q)| : bno(n|
|000015d0| 29 3d 71 20 3a 20 6e 3d | 6e 2b 31 00 20 20 20 20 |)=q : n=|n+1.    |
|000015e0| 20 20 80 02 20 80 0b 00 | 20 20 20 20 80 17 00 20 |  .. ...|    ... |
|000015f0| 20 80 02 20 80 0b 00 20 | 20 80 0c 20 c0 02 28 62 | .. ... | .. ..(b|
|00001600| 6c 61 6e 6b 28 29 29 20 | 3a 20 62 6c 61 6e 6b 28 |lank()) |: blank(|
|00001610| 29 5c 6e 3d 22 20 20 20 | 20 22 3a 20 80 c1 00 00 |)\n="   | ": ....|
|00001620| 20 20 c6 86 20 31 2c 30 | 2c 32 2c 30 2c 31 37 32 |  .. 1,0|,2,0,172|
|00001630| 2c 31 31 36 2c 22 22 2c | 31 2c 62 6c 61 6e 6b 28 |,116,"",|1,blank(|
|00001640| 29 00 20 20 c5 01 20 33 | 2c 32 30 30 2c 36 34 2c |).  .. 3|,200,64,|
|00001650| 31 39 32 2c 31 34 38 2c | 24 31 34 30 45 2c 74 69 |192,148,|$140E,ti|
|00001660| 74 6c 65 24 2c 31 2c 32 | 00 20 20 c6 8e 20 31 2c |tle$,1,2|.  .. 1,|
|00001670| 33 00 20 20 80 bb 00 20 | 20 20 20 65 33 3d c5 02 |3.  ... |   e3=..|
|00001680| 00 20 20 80 bc 20 28 65 | 33 3d 24 32 30 30 20 80 |.  .. (e|3=$200 .|
|00001690| 8a 20 28 c5 04 3d 30 20 | 80 42 20 c5 40 3c 6e 29 |. (..=0 |.B .@<n)|
|000016a0| 29 20 80 42 20 c5 05 3d | 33 00 20 20 80 0b 20 65 |) .B ..=|3.  .. e|
|000016b0| 33 3c 3e 24 32 30 30 00 | 20 20 20 20 65 63 3d c5 |3<>$200.|    ec=.|
|000016c0| 40 00 20 20 20 20 80 0b | 20 65 63 3c 6e 00 20 20 |@.    ..| ec<n.  |
|000016d0| 20 20 20 20 65 63 3d 62 | 6e 6f 28 65 63 29 00 20 |    ec=b|no(ec). |
|000016e0| 20 20 20 80 02 20 80 0b | 00 20 20 80 22 00 20 20 |   .. ..|.  .".  |
|000016f0| 20 20 65 63 3d 24 32 30 | 30 00 20 20 80 02 20 80 |  ec=$20|0.  .. .|
|00001700| 0b 00 20 20 80 2b 20 c5 | 01 20 33 00 00 20 20 80 |..  .+ .|. 3..  .|
|00001710| 09 20 80 07 20 65 63 00 | 00 80 02 20 80 09 00 00 |. .. ec.|... ....|
|00001720| 80 09 2e 73 20 73 74 72 | 69 6e 67 7b 74 24 2c 64 |...s str|ing{t$,d|
|00001730| 65 66 24 7d 00 00 20 20 | 3b 20 73 74 72 69 6e 67 |ef$}..  |; string|
|00001740| 20 72 65 71 75 65 73 74 | 6f 72 00 00 20 20 c6 82 | request|or..  ..|
|00001750| 20 39 2c 32 2c 33 33 36 | 2c 32 32 2c 36 30 2c 31 | 9,2,336|,22,60,1|
|00001760| 34 2c 22 43 41 4e 43 45 | 4c 22 2c 30 00 20 20 c6 |4,"CANCE|L",0.  .|
|00001770| 82 20 39 2c 31 2c 38 2c | 32 32 2c 36 30 2c 31 34 |. 9,1,8,|22,60,14|
|00001780| 2c 22 20 20 4f 4b 20 20 | 22 2c 30 00 20 20 c6 8c |,"  OK  |",0.  ..|
|00001790| 20 39 2c 30 2c 36 2c 34 | 2c 33 39 32 2c 31 34 2c | 9,0,6,4|,392,14,|
|000017a0| 22 22 2c 24 32 30 2c 33 | 30 00 00 20 20 c5 01 20 |"",$20,3|0..  .. |
|000017b0| 33 2c 31 31 30 2c 38 37 | 2c 34 31 32 2c 35 32 2c |3,110,87|,412,52,|
|000017c0| 31 34 2b 24 31 30 30 30 | 2c 74 24 2c 31 2c 32 20 |14+$1000|,t$,1,2 |
|000017d0| 3a 20 c6 8e 20 39 2c 33 | 00 20 20 c6 94 20 39 2c |: .. 9,3|.  .. 9,|
|000017e0| 30 2c 64 65 66 24 00 00 | 20 20 72 65 73 75 6c 74 |0,def$..|  result|
|000017f0| 3d 30 20 3a 20 73 24 3d | 22 22 00 20 20 80 bb 00 |=0 : s$=|"".  ...|
|00001800| 20 20 20 20 80 bb 20 3a | 20 65 3d c5 02 20 3a 20 |    .. :| e=.. : |
|00001810| 80 bc 20 65 3c 3e 30 00 | 20 20 20 20 80 0b 20 c5 |.. e<>0.|    .. .|
|00001820| 05 3d 33 00 20 20 20 20 | 20 20 80 0b 20 65 3d 24 |.=3.    |  .. e=$|
|00001830| 32 30 30 00 20 20 20 20 | 20 20 20 20 72 65 73 75 |200.    |    resu|
|00001840| 6c 74 3d 2d 31 20 3a 20 | 73 24 3d 22 22 00 20 20 |lt=-1 : |s$="".  |
|00001850| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 20 20 |    .. .|..      |
|00001860| 80 0b 20 65 3d 24 34 30 | 00 20 20 20 20 20 20 20 |.. e=$40|.       |
|00001870| 20 80 0b 20 c5 04 3d 30 | 00 20 20 20 20 20 20 20 | .. ..=0|.       |
|00001880| 20 20 20 72 65 73 75 6c | 74 3d 2d 31 20 3a 20 73 |   resul|t=-1 : s|
|00001890| 24 3d c6 96 28 39 2c 30 | 29 00 20 20 20 20 20 20 |$=..(9,0|).      |
|000018a0| 20 20 80 02 20 80 0b 00 | 20 20 20 20 20 20 20 20 |  .. ...|        |
|000018b0| 80 0b 20 c5 04 3d 31 00 | 20 20 20 20 20 20 20 20 |.. ..=1.|        |
|000018c0| 20 20 72 65 73 75 6c 74 | 3d 2d 31 20 3a 20 73 24 |  result|=-1 : s$|
|000018d0| 3d c6 96 28 39 2c 30 29 | 00 20 20 20 20 20 20 20 |=..(9,0)|.       |
|000018e0| 20 80 02 20 80 0b 00 20 | 20 20 20 20 20 20 20 80 | .. ... |       .|
|000018f0| 0b 20 c5 04 3d 32 00 20 | 20 20 20 20 20 20 20 20 |. ..=2. |        |
|00001900| 20 72 65 73 75 6c 74 3d | 2d 31 20 3a 20 73 24 3d | result=|-1 : s$=|
|00001910| 22 22 00 20 20 20 20 20 | 20 20 20 80 02 20 80 0b |"".     |   .. ..|
|00001920| 00 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |.      .|. ...   |
|00001930| 20 80 02 20 80 0b 00 20 | 20 80 bc 20 72 65 73 75 | .. ... | .. resu|
|00001940| 6c 74 00 20 20 c5 3c 20 | 33 00 20 20 80 09 20 80 |lt.  .< |3.  .. .|
|00001950| 07 20 73 24 00 00 80 02 | 20 80 09 00 00 80 08 20 |. s$....| ...... |
|00001960| 68 69 67 68 6c 69 67 68 | 74 73 7b 73 7d 00 00 20 |highligh|ts{s}.. |
|00001970| 20 3b 20 64 72 61 77 20 | 73 65 63 74 69 6f 6e 20 | ; draw |section |
|00001980| 68 69 67 68 6c 69 67 68 | 74 65 64 00 00 20 20 80 |highligh|ted..  .|
|00001990| 15 20 4e 53 2c 73 65 63 | 2c 78 67 28 29 2c 79 67 |. NS,sec|,xg(),yg|
|000019a0| 28 29 2c 63 6f 75 6e 74 | 28 29 2c 78 73 74 61 72 |(),count|(),xstar|
|000019b0| 74 2c 79 73 74 61 72 74 | 2c 74 24 2c 70 73 65 63 |t,ystart|,t$,psec|
|000019c0| 2c 70 63 6f 75 6e 74 2c | 73 63 2c 78 6f 66 66 2c |,pcount,|sc,xoff,|
|000019d0| 79 6f 66 66 00 20 20 80 | 15 20 68 65 69 67 68 74 |yoff.  .|. height|
|000019e0| 28 29 2c 65 79 65 00 00 | 20 20 80 0b 20 73 3e 2d |(),eye..|  .. s>-|
|000019f0| 31 00 20 20 20 20 80 0b | 20 28 68 65 69 67 68 74 |1.    ..| (height|
|00001a00| 28 30 2c 73 29 3c 65 79 | 65 20 80 42 20 68 65 69 |(0,s)<ey|e .B hei|
|00001a10| 67 68 74 28 31 2c 73 29 | 3e 65 79 65 29 00 20 20 |ght(1,s)|>eye).  |
|00001a20| 20 20 20 20 80 16 20 77 | 3d 30 20 80 18 20 63 6f |    .. w|=0 .. co|
|00001a30| 75 6e 74 28 73 29 00 20 | 20 20 20 20 20 20 20 c5 |unt(s). |       .|
|00001a40| 1e 20 78 67 28 30 2c 77 | 2c 73 29 2f 73 63 2b 78 |. xg(0,w|,s)/sc+x|
|00001a50| 6f 66 66 2c 79 67 28 30 | 2c 77 2c 73 29 2f 28 73 |off,yg(0|,w,s)/(s|
|00001a60| 63 2a 32 29 2b 79 6f 66 | 66 2c 78 67 28 31 2c 77 |c*2)+yof|f,xg(1,w|
|00001a70| 2c 73 29 2f 73 63 2b 78 | 6f 66 66 2c 79 67 28 31 |,s)/sc+x|off,yg(1|
|00001a80| 2c 77 2c 73 29 2f 28 73 | 63 2a 32 29 2b 79 6f 66 |,w,s)/(s|c*2)+yof|
|00001a90| 66 2c 32 00 20 20 20 20 | 20 20 80 17 00 20 20 20 |f,2.    |  ...   |
|00001aa0| 20 20 20 80 16 20 77 3d | 30 20 80 18 20 63 6f 75 |   .. w=|0 .. cou|
|00001ab0| 6e 74 28 73 29 00 20 20 | 20 20 20 20 20 20 c5 0b |nt(s).  |      ..|
|00001ac0| 20 78 67 28 30 2c 77 2c | 73 29 2f 73 63 2b 78 6f | xg(0,w,|s)/sc+xo|
|00001ad0| 66 66 2c 79 67 28 30 2c | 77 2c 73 29 2f 28 73 63 |ff,yg(0,|w,s)/(sc|
|00001ae0| 2a 32 29 2b 79 6f 66 66 | 2c 31 00 20 20 20 20 20 |*2)+yoff|,1.     |
|00001af0| 20 80 17 00 20 20 20 20 | 80 02 20 80 0b 00 20 20 | ...    |.. ...  |
|00001b00| 80 02 20 80 0b 00 00 80 | 02 20 80 08 00 00 80 08 |.. .....|. ......|
|00001b10| 20 6c 6f 77 6c 69 67 68 | 74 73 7b 73 7d 00 00 20 | lowligh|ts{s}.. |
|00001b20| 20 80 15 20 4e 53 2c 73 | 65 63 2c 78 67 28 29 2c | .. NS,s|ec,xg(),|
|00001b30| 79 67 28 29 2c 63 6f 75 | 6e 74 28 29 2c 78 73 74 |yg(),cou|nt(),xst|
|00001b40| 61 72 74 2c 79 73 74 61 | 72 74 2c 74 24 2c 70 73 |art,ysta|rt,t$,ps|
|00001b50| 65 63 2c 70 63 6f 75 6e | 74 2c 73 63 2c 78 6f 66 |ec,pcoun|t,sc,xof|
|00001b60| 66 2c 79 6f 66 66 00 20 | 20 80 15 20 68 65 69 67 |f,yoff. | .. heig|
|00001b70| 68 74 28 29 2c 65 79 65 | 00 00 20 20 80 0b 20 73 |ht(),eye|..  .. s|
|00001b80| 3e 2d 31 00 20 20 20 20 | 80 0b 20 28 68 65 69 67 |>-1.    |.. (heig|
|00001b90| 68 74 28 30 2c 73 29 3c | 65 79 65 20 80 42 20 68 |ht(0,s)<|eye .B h|
|00001ba0| 65 69 67 68 74 28 31 2c | 73 29 3e 65 79 65 29 00 |eight(1,|s)>eye).|
|00001bb0| 20 20 20 20 20 20 80 16 | 20 77 3d 30 20 80 18 20 |      ..| w=0 .. |
|00001bc0| 63 6f 75 6e 74 28 73 29 | 00 20 20 20 20 20 20 20 |count(s)|.       |
|00001bd0| 20 c5 1e 20 78 67 28 30 | 2c 77 2c 73 29 2f 73 63 | .. xg(0|,w,s)/sc|
|00001be0| 2b 78 6f 66 66 2c 79 67 | 28 30 2c 77 2c 73 29 2f |+xoff,yg|(0,w,s)/|
|00001bf0| 28 73 63 2a 32 29 2b 79 | 6f 66 66 2c 78 67 28 31 |(sc*2)+y|off,xg(1|
|00001c00| 2c 77 2c 73 29 2f 73 63 | 2b 78 6f 66 66 2c 79 67 |,w,s)/sc|+xoff,yg|
|00001c10| 28 31 2c 77 2c 73 29 2f | 28 73 63 2a 32 29 2b 79 |(1,w,s)/|(sc*2)+y|
|00001c20| 6f 66 66 2c 31 00 20 20 | 20 20 20 20 80 17 00 20 |off,1.  |    ... |
|00001c30| 20 20 20 20 20 80 16 20 | 77 3d 30 20 80 18 20 63 |     .. |w=0 .. c|
|00001c40| 6f 75 6e 74 28 73 29 00 | 20 20 20 20 20 20 20 20 |ount(s).|        |
|00001c50| c5 0b 20 78 67 28 30 2c | 77 2c 73 29 2f 73 63 2b |.. xg(0,|w,s)/sc+|
|00001c60| 78 6f 66 66 2c 79 67 28 | 30 2c 77 2c 73 29 2f 28 |xoff,yg(|0,w,s)/(|
|00001c70| 73 63 2a 32 29 2b 79 6f | 66 66 2c 32 00 20 20 20 |sc*2)+yo|ff,2.   |
|00001c80| 20 20 20 80 17 00 20 20 | 20 20 80 02 20 80 0b 00 |   ...  |  .. ...|
|00001c90| 20 20 80 02 20 80 0b 00 | 00 80 02 20 80 08 00 00 |  .. ...|... ....|
|00001ca0| 80 08 20 67 68 6f 73 74 | 73 7b 73 7d 00 00 20 20 |.. ghost|s{s}..  |
|00001cb0| 3b 20 64 72 61 77 20 73 | 65 63 74 69 6f 6e 20 67 |; draw s|ection g|
|00001cc0| 68 6f 73 74 65 64 00 00 | 20 20 80 15 20 4e 53 2c |hosted..|  .. NS,|
|00001cd0| 73 65 63 2c 78 67 28 29 | 2c 79 67 28 29 2c 63 6f |sec,xg()|,yg(),co|
|00001ce0| 75 6e 74 28 29 2c 78 73 | 74 61 72 74 2c 79 73 74 |unt(),xs|tart,yst|
|00001cf0| 61 72 74 2c 74 24 2c 70 | 73 65 63 2c 70 63 6f 75 |art,t$,p|sec,pcou|
|00001d00| 6e 74 2c 73 63 2c 78 6f | 66 66 2c 79 6f 66 66 00 |nt,sc,xo|ff,yoff.|
|00001d10| 00 20 20 80 0b 20 73 3e | 2d 31 00 20 20 20 20 80 |.  .. s>|-1.    .|
|00001d20| 16 20 77 3d 30 20 80 18 | 20 63 6f 75 6e 74 28 73 |. w=0 ..| count(s|
|00001d30| 29 00 20 20 20 20 20 20 | c5 1e 20 78 67 28 30 2c |).      |.. xg(0,|
|00001d40| 77 2c 73 29 2f 73 63 2b | 78 6f 66 66 2c 79 67 28 |w,s)/sc+|xoff,yg(|
|00001d50| 30 2c 77 2c 73 29 2f 28 | 73 63 2a 32 29 2b 79 6f |0,w,s)/(|sc*2)+yo|
|00001d60| 66 66 2c 78 67 28 31 2c | 77 2c 73 29 2f 73 63 2b |ff,xg(1,|w,s)/sc+|
|00001d70| 78 6f 66 66 2c 79 67 28 | 31 2c 77 2c 73 29 2f 28 |xoff,yg(|1,w,s)/(|
|00001d80| 73 63 2a 32 29 2b 79 6f | 66 66 2c 33 00 20 20 20 |sc*2)+yo|ff,3.   |
|00001d90| 20 80 17 00 20 20 80 02 | 20 80 0b 00 00 80 02 20 | ...  ..| ...... |
|00001da0| 80 08 00 00 80 08 20 68 | 69 67 68 6c 69 67 68 74 |...... h|ighlight|
|00001db0| 77 7b 73 2c 63 7d 00 00 | 20 20 3b 20 64 72 61 77 |w{s,c}..|  ; draw|
|00001dc0| 20 77 61 6c 6c 20 68 69 | 67 68 6c 69 67 68 74 65 | wall hi|ghlighte|
|00001dd0| 64 00 00 20 20 80 15 20 | 4e 53 2c 73 65 63 2c 78 |d..  .. |NS,sec,x|
|00001de0| 67 28 29 2c 79 67 28 29 | 2c 63 6f 75 6e 74 28 29 |g(),yg()|,count()|
|00001df0| 2c 78 73 74 61 72 74 2c | 79 73 74 61 72 74 2c 74 |,xstart,|ystart,t|
|00001e00| 24 2c 70 73 65 63 2c 70 | 63 6f 75 6e 74 2c 73 63 |$,psec,p|count,sc|
|00001e10| 2c 78 6f 66 66 2c 79 6f | 66 66 00 00 20 20 80 0b |,xoff,yo|ff..  ..|
|00001e20| 20 73 3e 2d 31 00 20 20 | 20 20 c5 1e 20 78 67 28 | s>-1.  |  .. xg(|
|00001e30| 30 2c 63 2c 73 29 2f 73 | 63 2b 78 6f 66 66 2c 79 |0,c,s)/s|c+xoff,y|
|00001e40| 67 28 30 2c 63 2c 73 29 | 2f 28 73 63 2a 32 29 2b |g(0,c,s)|/(sc*2)+|
|00001e50| 79 6f 66 66 2c 78 67 28 | 31 2c 63 2c 73 29 2f 73 |yoff,xg(|1,c,s)/s|
|00001e60| 63 2b 78 6f 66 66 2c 79 | 67 28 31 2c 63 2c 73 29 |c+xoff,y|g(1,c,s)|
|00001e70| 2f 28 73 63 2a 32 29 2b | 79 6f 66 66 2c 33 00 20 |/(sc*2)+|yoff,3. |
|00001e80| 20 80 02 20 80 0b 00 00 | 80 02 20 80 08 00 2e 72 | .. ....|.. ....r|
|00001e90| 65 64 72 34 77 00 80 08 | 20 72 65 64 72 34 77 7b |edr4w...| redr4w{|
|00001ea0| 7d 00 00 20 20 3b 20 72 | 65 64 72 61 77 20 65 76 |}..  ; r|edraw ev|
|00001eb0| 65 72 79 74 68 69 6e 67 | 00 00 20 20 80 15 20 4e |erything|..  .. N|
|00001ec0| 53 2c 4e 4f 2c 4e 45 2c | 4e 4c 2c 73 65 63 2c 78 |S,NO,NE,|NL,sec,x|
|00001ed0| 67 28 29 2c 79 67 28 29 | 2c 63 6f 75 6e 74 28 29 |g(),yg()|,count()|
|00001ee0| 2c 73 65 6c 65 63 74 65 | 64 28 29 2c 78 73 74 61 |,selecte|d(),xsta|
|00001ef0| 72 74 2c 79 73 74 61 72 | 74 2c 73 63 2c 78 6f 66 |rt,ystar|t,sc,xof|
|00001f00| 66 2c 79 6f 66 66 2c 6f | 78 28 29 2c 6f 79 28 29 |f,yoff,o|x(),oy()|
|00001f10| 2c 6f 73 65 63 28 29 2c | 6c 78 28 29 2c 6c 79 28 |,osec(),|lx(),ly(|
|00001f20| 29 2c 6c 6c 28 29 00 20 | 20 80 15 20 67 72 69 64 |),ll(). | .. grid|
|00001f30| 2c 68 65 69 67 68 74 28 | 29 2c 65 79 65 00 00 20 |,height(|),eye.. |
|00001f40| 20 80 2c 20 c5 01 20 31 | 00 20 20 c5 0f 20 3a 20 | ., .. 1|.  .. : |
|00001f50| c5 1e 20 30 2c 30 2c 36 | 34 30 2c 30 2c 30 00 00 |.. 0,0,6|40,0,0..|
|00001f60| 20 20 80 0b 20 67 72 69 | 64 00 20 20 20 20 78 3d |  .. gri|d.    x=|
|00001f70| 28 28 30 2d 78 6f 66 66 | 29 2a 73 63 2f 31 32 38 |((0-xoff|)*sc/128|
|00001f80| 29 2a 31 32 38 00 20 20 | 20 20 80 16 20 78 6c 3d |)*128.  |  .. xl=|
|00001f90| 78 20 80 18 20 78 2b 73 | 63 2a 31 30 32 34 20 80 |x .. x+s|c*1024 .|
|00001fa0| 19 20 31 32 38 00 20 20 | 20 20 20 20 c5 1e 20 78 |. 128.  |    .. x|
|00001fb0| 6c 2f 73 63 2b 78 6f 66 | 66 2c 30 2c 78 6c 2f 73 |l/sc+xof|f,0,xl/s|
|00001fc0| 63 2b 78 6f 66 66 2c 32 | 35 36 2c 33 00 20 20 20 |c+xoff,2|56,3.   |
|00001fd0| 20 80 17 00 20 20 20 20 | 79 3d 28 28 30 2d 79 6f | ...    |y=((0-yo|
|00001fe0| 66 66 29 2a 28 73 63 2a | 32 29 2f 31 32 38 29 2a |ff)*(sc*|2)/128)*|
|00001ff0| 31 32 38 00 20 20 20 20 | 80 16 20 79 6c 3d 79 20 |128.    |.. yl=y |
|00002000| 80 18 20 79 2b 73 63 2a | 31 30 32 34 20 80 19 20 |.. y+sc*|1024 .. |
|00002010| 31 32 38 00 20 20 20 20 | 20 20 c5 1e 20 30 2c 79 |128.    |  .. 0,y|
|00002020| 6c 2f 28 73 63 2a 32 29 | 2b 79 6f 66 66 2c 36 34 |l/(sc*2)|+yoff,64|
|00002030| 30 2c 79 6c 2f 28 73 63 | 2a 32 29 2b 79 6f 66 66 |0,yl/(sc|*2)+yoff|
|00002040| 2c 33 00 20 20 20 20 80 | 17 00 20 20 80 02 20 80 |,3.    .|..  .. .|
|00002050| 0b 00 00 20 20 80 0b 20 | 73 65 63 3e 2d 31 00 00 |...  .. |sec>-1..|
|00002060| 20 20 20 20 80 16 20 73 | 3d 30 20 80 18 20 4e 53 |    .. s|=0 .. NS|
|00002070| 00 20 20 20 20 20 20 80 | 0b 20 63 6f 75 6e 74 28 |.      .|. count(|
|00002080| 73 29 3e 31 20 80 42 20 | 80 89 20 28 68 65 69 67 |s)>1 .B |.. (heig|
|00002090| 68 74 28 30 2c 73 29 3c | 65 79 65 20 80 42 20 68 |ht(0,s)<|eye .B h|
|000020a0| 65 69 67 68 74 28 31 2c | 73 29 3e 65 79 65 29 00 |eight(1,|s)>eye).|
|000020b0| 20 20 20 20 20 20 20 20 | 67 68 6f 73 74 73 7b 73 |        |ghosts{s|
|000020c0| 7d 00 20 20 20 20 20 20 | 80 02 20 80 0b 00 20 20 |}.      |.. ...  |
|000020d0| 20 20 80 17 00 20 20 20 | 20 80 16 20 73 3d 30 20 |  ...   | .. s=0 |
|000020e0| 80 18 20 4e 53 00 20 20 | 20 20 20 20 80 0b 20 63 |.. NS.  |    .. c|
|000020f0| 6f 75 6e 74 28 73 29 3e | 31 20 80 42 20 80 89 20 |ount(s)>|1 .B .. |
|00002100| 28 68 65 69 67 68 74 28 | 30 2c 73 29 3c 65 79 65 |(height(|0,s)<eye|
|00002110| 20 80 42 20 68 65 69 67 | 68 74 28 31 2c 73 29 3e | .B heig|ht(1,s)>|
|00002120| 65 79 65 29 00 20 20 20 | 20 20 20 20 20 80 0b 20 |eye).   |     .. |
|00002130| 73 65 6c 65 63 74 65 64 | 28 73 29 3d 2d 31 00 20 |selected|(s)=-1. |
|00002140| 20 20 20 20 20 20 20 20 | 20 67 68 6f 73 74 73 7b |        | ghosts{|
|00002150| 73 7d 00 20 20 20 20 20 | 20 20 20 80 02 20 80 0b |s}.     |   .. ..|
|00002160| 00 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |.      .|. ...   |
|00002170| 20 80 17 00 20 20 20 20 | 80 16 20 6f 3d 30 20 80 | ...    |.. o=0 .|
|00002180| 18 20 4e 4f 00 20 20 20 | 20 20 20 80 0b 20 6f 73 |. NO.   |   .. os|
|00002190| 65 63 28 6f 29 3e 2d 31 | 00 20 20 20 20 20 20 20 |ec(o)>-1|.       |
|000021a0| 20 80 0b 20 80 89 20 28 | 68 65 69 67 68 74 28 30 | .. .. (|height(0|
|000021b0| 2c 6f 73 65 63 28 6f 29 | 29 3c 65 79 65 20 80 42 |,osec(o)|)<eye .B|
|000021c0| 20 68 65 69 67 68 74 28 | 31 2c 6f 73 65 63 28 6f | height(|1,osec(o|
|000021d0| 29 29 3e 65 79 65 29 00 | 20 20 20 20 20 20 20 20 |))>eye).|        |
|000021e0| 20 20 c5 0d 20 6f 78 28 | 6f 29 2f 73 63 2b 78 6f |  .. ox(|o)/sc+xo|
|000021f0| 66 66 2c 6f 79 28 6f 29 | 2f 28 73 63 2a 32 29 2b |ff,oy(o)|/(sc*2)+|
|00002200| 79 6f 66 66 2c 32 2c 33 | 00 20 20 20 20 20 20 20 |yoff,2,3|.       |
|00002210| 20 80 02 20 80 0b 00 20 | 20 20 20 20 20 80 02 20 | .. ... |     .. |
|00002220| 80 0b 00 20 20 20 20 80 | 17 00 20 20 20 20 80 16 |...    .|..    ..|
|00002230| 20 6f 3d 4e 4f 2b 31 20 | 80 18 20 4e 4f 2b 4e 45 | o=NO+1 |.. NO+NE|
|00002240| 00 20 20 20 20 20 20 80 | 0b 20 6f 73 65 63 28 6f |.      .|. osec(o|
|00002250| 29 3e 2d 31 00 20 20 20 | 20 20 20 20 20 80 0b 20 |)>-1.   |     .. |
|00002260| 80 89 20 28 68 65 69 67 | 68 74 28 30 2c 6f 73 65 |.. (heig|ht(0,ose|
|00002270| 63 28 6f 29 29 3c 65 79 | 65 20 80 42 20 68 65 69 |c(o))<ey|e .B hei|
|00002280| 67 68 74 28 31 2c 6f 73 | 65 63 28 6f 29 29 3e 65 |ght(1,os|ec(o))>e|
|00002290| 79 65 29 00 20 20 20 20 | 20 20 20 20 20 20 c5 1e |ye).    |      ..|
|000022a0| 20 6f 78 28 6f 29 2f 73 | 63 2d 33 2b 78 6f 66 66 | ox(o)/s|c-3+xoff|
|000022b0| 2c 6f 79 28 6f 29 2f 28 | 73 63 2a 32 29 2b 79 6f |,oy(o)/(|sc*2)+yo|
|000022c0| 66 66 2c 6f 78 28 6f 29 | 2f 73 63 2b 34 2b 78 6f |ff,ox(o)|/sc+4+xo|
|000022d0| 66 66 2c 6f 79 28 6f 29 | 2f 28 73 63 2a 32 29 2b |ff,oy(o)|/(sc*2)+|
|000022e0| 79 6f 66 66 2c 33 00 20 | 20 20 20 20 20 20 20 20 |yoff,3. |        |
|000022f0| 20 c5 1e 20 6f 78 28 6f | 29 2f 73 63 2b 78 6f 66 | .. ox(o|)/sc+xof|
|00002300| 66 2c 6f 79 28 6f 29 2f | 28 73 63 2a 32 29 2d 32 |f,oy(o)/|(sc*2)-2|
|00002310| 2b 79 6f 66 66 2c 6f 78 | 28 6f 29 2f 73 63 2b 78 |+yoff,ox|(o)/sc+x|
|00002320| 6f 66 66 2c 6f 79 28 6f | 29 2f 28 73 63 2a 32 29 |off,oy(o|)/(sc*2)|
|00002330| 2b 33 2b 79 6f 66 66 2c | 33 00 20 20 20 20 20 20 |+3+yoff,|3.      |
|00002340| 20 20 20 20 c5 1e 20 6f | 78 28 6f 29 2f 73 63 2b |    .. o|x(o)/sc+|
|00002350| 78 6f 66 66 2b 31 2c 6f | 79 28 6f 29 2f 28 73 63 |xoff+1,o|y(o)/(sc|
|00002360| 2a 32 29 2d 32 2b 79 6f | 66 66 2c 6f 78 28 6f 29 |*2)-2+yo|ff,ox(o)|
|00002370| 2f 73 63 2b 78 6f 66 66 | 2b 31 2c 6f 79 28 6f 29 |/sc+xoff|+1,oy(o)|
|00002380| 2f 28 73 63 2a 32 29 2b | 33 2b 79 6f 66 66 2c 33 |/(sc*2)+|3+yoff,3|
|00002390| 00 20 20 20 20 20 20 20 | 20 20 20 c5 1e 20 6f 78 |.       |   .. ox|
|000023a0| 28 6f 29 2f 73 63 2d 31 | 2b 78 6f 66 66 2c 6f 79 |(o)/sc-1|+xoff,oy|
|000023b0| 28 6f 29 2f 28 73 63 2a | 32 29 2b 79 6f 66 66 2d |(o)/(sc*|2)+yoff-|
|000023c0| 32 2c 6f 78 28 6f 29 2f | 73 63 2b 32 2b 78 6f 66 |2,ox(o)/|sc+2+xof|
|000023d0| 66 2c 6f 79 28 6f 29 2f | 28 73 63 2a 32 29 2b 79 |f,oy(o)/|(sc*2)+y|
|000023e0| 6f 66 66 2d 32 2c 33 00 | 20 20 20 20 20 20 20 20 |off-2,3.|        |
|000023f0| 80 02 20 80 0b 00 20 20 | 20 20 20 20 80 02 20 80 |.. ...  |    .. .|
|00002400| 0b 00 20 20 20 20 80 17 | 00 20 20 20 20 80 16 20 |..    ..|.    .. |
|00002410| 73 3d 30 20 80 18 20 4e | 53 00 20 20 20 20 20 20 |s=0 .. N|S.      |
|00002420| 80 0b 20 63 6f 75 6e 74 | 28 73 29 3e 31 20 80 42 |.. count|(s)>1 .B|
|00002430| 20 28 68 65 69 67 68 74 | 28 30 2c 73 29 3c 65 79 | (height|(0,s)<ey|
|00002440| 65 20 80 42 20 68 65 69 | 67 68 74 28 31 2c 73 29 |e .B hei|ght(1,s)|
|00002450| 3e 65 79 65 29 00 20 20 | 20 20 20 20 20 20 6c 6f |>eye).  |      lo|
|00002460| 77 6c 69 67 68 74 73 7b | 73 7d 00 20 20 20 20 20 |wlights{|s}.     |
|00002470| 20 80 02 20 80 0b 00 20 | 20 20 20 80 17 00 20 20 | .. ... |   ...  |
|00002480| 20 20 80 16 20 73 3d 30 | 20 80 18 20 4e 53 00 20 |  .. s=0| .. NS. |
|00002490| 20 20 20 20 20 80 0b 20 | 63 6f 75 6e 74 28 73 29 |     .. |count(s)|
|000024a0| 3e 31 20 80 42 20 28 68 | 65 69 67 68 74 28 30 2c |>1 .B (h|eight(0,|
|000024b0| 73 29 3c 65 79 65 20 80 | 42 20 68 65 69 67 68 74 |s)<eye .|B height|
|000024c0| 28 31 2c 73 29 3e 65 79 | 65 29 00 20 20 20 20 20 |(1,s)>ey|e).     |
|000024d0| 20 20 20 80 0b 20 73 65 | 6c 65 63 74 65 64 28 73 |   .. se|lected(s|
|000024e0| 29 3d 2d 31 00 20 20 20 | 20 20 20 20 20 20 20 68 |)=-1.   |       h|
|000024f0| 69 67 68 6c 69 67 68 74 | 73 7b 73 7d 00 20 20 20 |ighlight|s{s}.   |
|00002500| 20 20 20 20 20 80 02 20 | 80 0b 00 20 20 20 20 20 |     .. |...     |
|00002510| 20 80 02 20 80 0b 00 20 | 20 20 20 80 17 00 20 20 | .. ... |   ...  |
|00002520| 20 20 80 16 20 6f 3d 30 | 20 80 18 20 4e 4f 00 20 |  .. o=0| .. NO. |
|00002530| 20 20 20 20 20 80 0b 20 | 6f 73 65 63 28 6f 29 3e |     .. |osec(o)>|
|00002540| 2d 31 00 20 20 20 20 20 | 20 20 20 80 0b 20 28 68 |-1.     |   .. (h|
|00002550| 65 69 67 68 74 28 30 2c | 6f 73 65 63 28 6f 29 29 |eight(0,|osec(o))|
|00002560| 3c 65 79 65 20 80 42 20 | 68 65 69 67 68 74 28 31 |<eye .B |height(1|
|00002570| 2c 6f 73 65 63 28 6f 29 | 29 3e 65 79 65 29 00 20 |,osec(o)|)>eye). |
|00002580| 20 20 20 20 20 20 20 20 | 20 c5 0d 20 6f 78 28 6f |        | .. ox(o|
|00002590| 29 2f 73 63 2b 78 6f 66 | 66 2c 6f 79 28 6f 29 2f |)/sc+xof|f,oy(o)/|
|000025a0| 28 73 63 2a 32 29 2b 79 | 6f 66 66 2c 32 2c 31 00 |(sc*2)+y|off,2,1.|
|000025b0| 20 20 20 20 20 20 20 20 | 80 02 20 80 0b 00 20 20 |        |.. ...  |
|000025c0| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 80 17 |    .. .|..    ..|
|000025d0| 00 20 20 20 20 80 16 20 | 6f 3d 4e 4f 2b 31 20 80 |.    .. |o=NO+1 .|
|000025e0| 18 20 4e 4f 2b 4e 45 00 | 20 20 20 20 20 20 80 0b |. NO+NE.|      ..|
|000025f0| 20 6f 73 65 63 28 6f 29 | 3e 2d 31 00 20 20 20 20 | osec(o)|>-1.    |
|00002600| 20 20 20 20 80 0b 20 28 | 68 65 69 67 68 74 28 30 |    .. (|height(0|
|00002610| 2c 6f 73 65 63 28 6f 29 | 29 3c 65 79 65 20 80 42 |,osec(o)|)<eye .B|
|00002620| 20 68 65 69 67 68 74 28 | 31 2c 6f 73 65 63 28 6f | height(|1,osec(o|
|00002630| 29 29 3e 65 79 65 29 00 | 20 20 20 20 20 20 20 20 |))>eye).|        |
|00002640| 20 20 c5 1e 20 6f 78 28 | 6f 29 2f 73 63 2d 33 2b |  .. ox(|o)/sc-3+|
|00002650| 78 6f 66 66 2c 6f 79 28 | 6f 29 2f 28 73 63 2a 32 |xoff,oy(|o)/(sc*2|
|00002660| 29 2b 79 6f 66 66 2c 6f | 78 28 6f 29 2f 73 63 2b |)+yoff,o|x(o)/sc+|
|00002670| 34 2b 78 6f 66 66 2c 6f | 79 28 6f 29 2f 28 73 63 |4+xoff,o|y(o)/(sc|
|00002680| 2a 32 29 2b 79 6f 66 66 | 2c 31 00 20 20 20 20 20 |*2)+yoff|,1.     |
|00002690| 20 20 20 20 20 c5 1e 20 | 6f 78 28 6f 29 2f 73 63 |     .. |ox(o)/sc|
|000026a0| 2b 78 6f 66 66 2c 6f 79 | 28 6f 29 2f 28 73 63 2a |+xoff,oy|(o)/(sc*|
|000026b0| 32 29 2d 32 2b 79 6f 66 | 66 2c 6f 78 28 6f 29 2f |2)-2+yof|f,ox(o)/|
|000026c0| 73 63 2b 78 6f 66 66 2c | 6f 79 28 6f 29 2f 28 73 |sc+xoff,|oy(o)/(s|
|000026d0| 63 2a 32 29 2b 33 2b 79 | 6f 66 66 2c 31 00 20 20 |c*2)+3+y|off,1.  |
|000026e0| 20 20 20 20 20 20 20 20 | c5 1e 20 6f 78 28 6f 29 |        |.. ox(o)|
|000026f0| 2f 73 63 2b 78 6f 66 66 | 2b 31 2c 6f 79 28 6f 29 |/sc+xoff|+1,oy(o)|
|00002700| 2f 28 73 63 2a 32 29 2d | 32 2b 79 6f 66 66 2c 6f |/(sc*2)-|2+yoff,o|
|00002710| 78 28 6f 29 2f 73 63 2b | 78 6f 66 66 2b 31 2c 6f |x(o)/sc+|xoff+1,o|
|00002720| 79 28 6f 29 2f 28 73 63 | 2a 32 29 2b 33 2b 79 6f |y(o)/(sc|*2)+3+yo|
|00002730| 66 66 2c 31 00 20 20 20 | 20 20 20 20 20 20 20 c5 |ff,1.   |       .|
|00002740| 1e 20 6f 78 28 6f 29 2f | 73 63 2d 31 2b 78 6f 66 |. ox(o)/|sc-1+xof|
|00002750| 66 2c 6f 79 28 6f 29 2f | 28 73 63 2a 32 29 2b 79 |f,oy(o)/|(sc*2)+y|
|00002760| 6f 66 66 2d 32 2c 6f 78 | 28 6f 29 2f 73 63 2b 32 |off-2,ox|(o)/sc+2|
|00002770| 2b 78 6f 66 66 2c 6f 79 | 28 6f 29 2f 28 73 63 2a |+xoff,oy|(o)/(sc*|
|00002780| 32 29 2b 79 6f 66 66 2d | 32 2c 31 00 20 20 20 20 |2)+yoff-|2,1.    |
|00002790| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 20 20 |    .. .|..      |
|000027a0| 80 02 20 80 0b 00 20 20 | 20 20 80 17 00 20 20 20 |.. ...  |  ...   |
|000027b0| 20 80 16 20 6f 3d 30 20 | 80 18 20 4e 4c 00 20 20 | .. o=0 |.. NL.  |
|000027c0| 20 20 20 20 80 0b 20 6c | 6c 28 6f 29 3e 2d 31 00 |    .. l|l(o)>-1.|
|000027d0| 20 20 20 20 20 20 20 20 | c5 1e 20 6c 78 28 6f 29 |        |.. lx(o)|
|000027e0| 2f 73 63 2d 34 2b 78 6f | 66 66 2c 6c 79 28 6f 29 |/sc-4+xo|ff,ly(o)|
|000027f0| 2f 28 73 63 2a 32 29 2b | 79 6f 66 66 2c 6c 78 28 |/(sc*2)+|yoff,lx(|
|00002800| 6f 29 2f 73 63 2b 34 2b | 78 6f 66 66 2c 6c 79 28 |o)/sc+4+|xoff,ly(|
|00002810| 6f 29 2f 28 73 63 2a 32 | 29 2b 79 6f 66 66 2c 32 |o)/(sc*2|)+yoff,2|
|00002820| 00 20 20 20 20 20 20 20 | 20 c5 1e 20 6c 78 28 6f |.       | .. lx(o|
|00002830| 29 2f 73 63 2b 78 6f 66 | 66 2c 6c 79 28 6f 29 2f |)/sc+xof|f,ly(o)/|
|00002840| 28 73 63 2a 32 29 2d 32 | 2b 79 6f 66 66 2c 6c 78 |(sc*2)-2|+yoff,lx|
|00002850| 28 6f 29 2f 73 63 2b 78 | 6f 66 66 2c 6c 79 28 6f |(o)/sc+x|off,ly(o|
|00002860| 29 2f 28 73 63 2a 32 29 | 2b 32 2b 79 6f 66 66 2c |)/(sc*2)|+2+yoff,|
|00002870| 32 00 20 20 20 20 20 20 | 20 20 c5 1e 20 6c 78 28 |2.      |  .. lx(|
|00002880| 6f 29 2f 73 63 2d 34 2b | 78 6f 66 66 2c 6c 79 28 |o)/sc-4+|xoff,ly(|
|00002890| 6f 29 2f 28 73 63 2a 32 | 29 2d 32 2b 79 6f 66 66 |o)/(sc*2|)-2+yoff|
|000028a0| 2c 6c 78 28 6f 29 2f 73 | 63 2b 34 2b 78 6f 66 66 |,lx(o)/s|c+4+xoff|
|000028b0| 2c 6c 79 28 6f 29 2f 28 | 73 63 2a 32 29 2b 32 2b |,ly(o)/(|sc*2)+2+|
|000028c0| 79 6f 66 66 2c 32 00 20 | 20 20 20 20 20 20 20 c5 |yoff,2. |       .|
|000028d0| 1e 20 6c 78 28 6f 29 2f | 73 63 2b 34 2b 78 6f 66 |. lx(o)/|sc+4+xof|
|000028e0| 66 2c 6c 79 28 6f 29 2f | 28 73 63 2a 32 29 2d 32 |f,ly(o)/|(sc*2)-2|
|000028f0| 2b 79 6f 66 66 2c 6c 78 | 28 6f 29 2f 73 63 2d 34 |+yoff,lx|(o)/sc-4|
|00002900| 2b 78 6f 66 66 2c 6c 79 | 28 6f 29 2f 28 73 63 2a |+xoff,ly|(o)/(sc*|
|00002910| 32 29 2b 32 2b 79 6f 66 | 66 2c 32 00 20 20 20 20 |2)+2+yof|f,2.    |
|00002920| 20 20 80 02 20 80 0b 00 | 20 20 20 20 80 17 00 20 |  .. ...|    ... |
|00002930| 20 20 20 c5 1e 20 78 73 | 74 61 72 74 2f 73 63 2d |   .. xs|tart/sc-|
|00002940| 34 2b 78 6f 66 66 2c 79 | 73 74 61 72 74 2f 28 73 |4+xoff,y|start/(s|
|00002950| 63 2a 32 29 2b 79 6f 66 | 66 2c 78 73 74 61 72 74 |c*2)+yof|f,xstart|
|00002960| 2f 73 63 2b 34 2b 78 6f | 66 66 2c 79 73 74 61 72 |/sc+4+xo|ff,ystar|
|00002970| 74 2f 28 73 63 2a 32 29 | 2b 79 6f 66 66 2c 31 00 |t/(sc*2)|+yoff,1.|
|00002980| 20 20 20 20 c5 1e 20 78 | 73 74 61 72 74 2f 73 63 |    .. x|start/sc|
|00002990| 2b 78 6f 66 66 2c 79 73 | 74 61 72 74 2f 28 73 63 |+xoff,ys|tart/(sc|
|000029a0| 2a 32 29 2d 32 2b 79 6f | 66 66 2c 78 73 74 61 72 |*2)-2+yo|ff,xstar|
|000029b0| 74 2f 73 63 2b 78 6f 66 | 66 2c 79 73 74 61 72 74 |t/sc+xof|f,ystart|
|000029c0| 2f 28 73 63 2a 32 29 2b | 32 2b 79 6f 66 66 2c 31 |/(sc*2)+|2+yoff,1|
|000029d0| 00 00 20 20 80 02 20 80 | 0b 00 00 80 02 20 80 08 |..  .. .|..... ..|
|000029e0| 00 2e 67 65 74 70 6f 69 | 6e 74 00 80 09 20 67 65 |..getpoi|nt... ge|
|000029f0| 74 70 6f 69 6e 74 7b 73 | 2c 63 6f 6c 2c 78 2c 79 |tpoint{s|,col,x,y|
|00002a00| 7d 00 00 20 20 3b 20 67 | 65 74 20 61 20 77 61 6c |}..  ; g|et a wal|
|00002a10| 6c 00 00 20 20 80 15 20 | 4e 53 2c 73 65 63 2c 78 |l..  .. |NS,sec,x|
|00002a20| 67 28 29 2c 79 67 28 29 | 2c 63 6f 75 6e 74 28 29 |g(),yg()|,count()|
|00002a30| 2c 78 73 74 61 72 74 2c | 79 73 74 61 72 74 2c 74 |,xstart,|ystart,t|
|00002a40| 24 2c 70 73 65 63 2c 70 | 63 6f 75 6e 74 2c 73 63 |$,psec,p|count,sc|
|00002a50| 2c 78 6f 66 66 2c 79 6f | 66 66 00 00 20 20 20 20 |,xoff,yo|ff..    |
|00002a60| 80 2c 20 c5 01 20 31 00 | 20 20 20 20 80 0b 20 78 |., .. 1.|    .. x|
|00002a70| 3d 2d 31 00 20 20 20 20 | 20 20 80 bb 20 3a 20 80 |=-1.    |  .. : .|
|00002a80| 0c 20 c5 02 3c 3e 24 38 | 20 3a 20 80 c1 20 3a 20 |. ..<>$8| : .. : |
|00002a90| 6d 3d c5 22 20 3a 20 80 | bc 20 6d 3d 31 20 80 8a |m=." : .|. m=1 ..|
|00002aa0| 20 6d 3d 32 00 20 20 20 | 20 20 20 78 3d 28 c5 1a | m=2.   |   x=(..|
|00002ab0| 2d 78 6f 66 66 29 2a 73 | 63 20 3a 20 79 3d 28 c5 |-xoff)*s|c : y=(.|
|00002ac0| 1b 2d 79 6f 66 66 29 2a | 28 73 63 2a 32 29 00 20 |.-yoff)*|(sc*2). |
|00002ad0| 20 20 20 80 22 00 20 20 | 20 20 20 20 6d 3d 31 00 |   .".  |    m=1.|
|00002ae0| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 70 73 |    .. .|..    ps|
|00002af0| 65 63 3d 2d 31 20 3a 20 | 70 63 6f 75 6e 74 3d 2d |ec=-1 : |pcount=-|
|00002b00| 31 00 00 20 20 20 20 80 | 0b 20 6d 3d 31 00 20 20 |1..    .|. m=1.  |
|00002b10| 20 20 20 20 80 0b 20 73 | 65 63 3e 2d 31 00 20 20 |    .. s|ec>-1.  |
|00002b20| 20 20 20 20 20 20 80 0b | 20 73 3d 2d 31 00 20 20 |      ..| s=-1.  |
|00002b30| 20 20 20 20 20 20 20 20 | 80 16 20 71 3d 30 20 80 |        |.. q=0 .|
|00002b40| 18 20 4e 53 00 20 20 20 | 20 20 20 20 20 20 20 20 |. NS.   |        |
|00002b50| 20 80 0b 20 63 6f 75 6e | 74 28 71 29 3e 30 00 20 | .. coun|t(q)>0. |
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 16 20 |        |     .. |
|00002b70| 77 3d 30 20 80 18 20 63 | 6f 75 6e 74 28 71 29 00 |w=0 .. c|ount(q).|
|00002b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b90| 80 0b 20 bc 09 28 78 67 | 28 31 2c 77 2c 71 29 2d |.. ..(xg|(1,w,q)-|
|00002ba0| 78 29 3c 73 63 2a 34 20 | 80 42 20 bc 09 28 79 67 |x)<sc*4 |.B ..(yg|
|00002bb0| 28 31 2c 77 2c 71 29 2d | 79 29 3c 73 63 2a 38 00 |(1,w,q)-|y)<sc*8.|
|00002bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002bd0| 20 20 80 be 20 80 16 20 | 3a 20 80 be 20 80 16 20 |  .. .. |: .. .. |
|00002be0| 3a 20 80 05 20 6f 75 74 | 00 20 20 20 20 20 20 20 |: .. out|.       |
|00002bf0| 20 20 20 20 20 20 20 20 | 20 80 02 20 80 0b 00 20 |        | .. ... |
|00002c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 17 00 |        |     ...|
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 02 20 80 |        |    .. .|
|00002c20| 0b 00 20 20 20 20 20 20 | 20 20 20 20 80 17 00 20 |..      |    ... |
|00002c30| 20 20 20 20 20 20 20 20 | 20 71 3d 2d 31 20 3a 20 |        | q=-1 : |
|00002c40| 77 3d 2d 31 00 20 20 20 | 20 20 20 20 20 20 20 6f |w=-1.   |       o|
|00002c50| 75 74 3a 00 20 20 20 20 | 20 20 20 20 80 22 00 20 |ut:.    |    .". |
|00002c60| 20 20 20 20 20 20 20 20 | 20 71 3d 73 00 20 20 20 |        | q=s.   |
|00002c70| 20 20 20 20 20 20 20 80 | 16 20 77 3d 30 20 80 18 |       .|. w=0 ..|
|00002c80| 20 63 6f 75 6e 74 28 71 | 29 00 20 20 20 20 20 20 | count(q|).      |
|00002c90| 20 20 20 20 20 20 80 0b | 20 bc 09 28 78 67 28 31 |      ..| ..(xg(1|
|00002ca0| 2c 77 2c 71 29 2d 78 29 | 3c 73 63 2a 34 20 80 42 |,w,q)-x)|<sc*4 .B|
|00002cb0| 20 bc 09 28 79 67 28 31 | 2c 77 2c 71 29 2d 79 29 | ..(yg(1|,w,q)-y)|
|00002cc0| 3c 73 63 2a 38 00 20 20 | 20 20 20 20 20 20 20 20 |<sc*8.  |        |
|00002cd0| 20 20 20 20 80 be 20 80 | 16 20 3a 20 80 05 20 6f |    .. .|. : .. o|
|00002ce0| 75 74 32 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |ut2.    |        |
|00002cf0| 80 02 20 80 0b 00 20 20 | 20 20 20 20 20 20 20 20 |.. ...  |        |
|00002d00| 80 17 00 20 20 20 20 20 | 20 20 20 20 20 71 3d 2d |...     |     q=-|
|00002d10| 31 20 3a 20 77 3d 2d 31 | 00 20 20 20 20 20 20 20 |1 : w=-1|.       |
|00002d20| 20 20 20 6f 75 74 32 3a | 00 20 20 20 20 20 20 20 |   out2:|.       |
|00002d30| 20 80 02 20 80 0b 00 20 | 20 20 20 20 20 80 02 20 | .. ... |     .. |
|00002d40| 80 0b 00 20 20 20 20 20 | 20 70 73 65 63 3d 71 00 |...     | psec=q.|
|00002d50| 20 20 20 20 20 20 70 63 | 6f 75 6e 74 3d 77 00 20 |      pc|ount=w. |
|00002d60| 20 20 20 80 22 00 20 20 | 20 20 20 20 70 63 6f 75 |   .".  |    pcou|
|00002d70| 6e 74 3d 2d 32 00 20 20 | 20 20 80 02 20 80 0b 00 |nt=-2.  |  .. ...|
|00002d80| 00 20 20 80 0b 20 70 63 | 6f 75 6e 74 3e 2d 31 20 |.  .. pc|ount>-1 |
|00002d90| 3a 20 c5 0b 20 78 67 28 | 31 2c 70 63 6f 75 6e 74 |: .. xg(|1,pcount|
|00002da0| 2c 70 73 65 63 29 2f 73 | 63 2b 78 6f 66 66 2c 79 |,psec)/s|c+xoff,y|
|00002db0| 67 28 31 2c 70 63 6f 75 | 6e 74 2c 70 73 65 63 29 |g(1,pcou|nt,psec)|
|00002dc0| 2f 28 73 63 2a 32 29 2b | 79 6f 66 66 2c 63 6f 6c |/(sc*2)+|yoff,col|
|00002dd0| 20 3a 20 80 02 20 80 0b | 00 20 20 80 09 20 80 07 | : .. ..|.  .. ..|
|00002de0| 20 70 63 6f 75 6e 74 00 | 00 80 02 20 80 09 00 2e | pcount.|... ....|
|00002df0| 67 65 74 73 65 63 00 80 | 09 20 67 65 74 73 65 63 |getsec..|. getsec|
|00002e00| 7b 7d 00 00 20 20 3b 20 | 67 65 74 20 61 20 73 65 |{}..  ; |get a se|
|00002e10| 63 74 69 6f 6e 00 00 20 | 20 80 15 20 4e 53 2c 73 |ction.. | .. NS,s|
|00002e20| 65 63 2c 78 67 28 29 2c | 79 67 28 29 2c 63 6f 75 |ec,xg(),|yg(),cou|
|00002e30| 6e 74 28 29 2c 78 73 74 | 61 72 74 2c 79 73 74 61 |nt(),xst|art,ysta|
|00002e40| 72 74 2c 74 24 2c 70 73 | 65 63 2c 70 63 6f 75 6e |rt,t$,ps|ec,pcoun|
|00002e50| 74 2c 73 63 2c 78 6f 66 | 66 2c 79 6f 66 66 00 20 |t,sc,xof|f,yoff. |
|00002e60| 20 80 15 20 68 65 69 67 | 68 74 28 29 2c 65 79 65 | .. heig|ht(),eye|
|00002e70| 2c 65 79 65 63 68 65 63 | 6b 00 00 20 20 80 2c 20 |,eyechec|k..  ., |
|00002e80| c5 01 20 31 00 20 20 80 | bb 20 3a 20 80 0c 20 c5 |.. 1.  .|. : .. .|
|00002e90| 02 3c 3e 24 38 20 3a 20 | 80 c1 20 3a 20 6d 3d c5 |.<>$8 : |.. : m=.|
|00002ea0| 22 20 3a 20 80 bc 20 6d | 3d 31 20 80 8a 20 6d 3d |" : .. m|=1 .. m=|
|00002eb0| 32 00 20 20 78 3d 28 c5 | 1a 2d 78 6f 66 66 29 2a |2.  x=(.|.-xoff)*|
|00002ec0| 73 63 20 3a 20 79 3d 28 | c5 1b 2d 79 6f 66 66 29 |sc : y=(|..-yoff)|
|00002ed0| 2a 28 73 63 2a 32 29 00 | 20 20 73 3d 2d 31 00 00 |*(sc*2).|  s=-1..|
|00002ee0| 20 20 80 0b 20 6d 3d 31 | 00 20 20 20 20 80 0b 20 |  .. m=1|.    .. |
|00002ef0| 73 65 63 3e 2d 31 00 20 | 20 20 20 20 20 80 16 20 |sec>-1. |     .. |
|00002f00| 71 3d 30 20 80 18 20 4e | 53 00 20 20 20 20 20 20 |q=0 .. N|S.      |
|00002f10| 20 20 80 0b 20 63 6f 75 | 6e 74 28 71 29 3e 30 20 |  .. cou|nt(q)>0 |
|00002f20| 80 42 20 28 28 68 65 69 | 67 68 74 28 30 2c 71 29 |.B ((hei|ght(0,q)|
|00002f30| 3c 65 79 65 20 80 42 20 | 68 65 69 67 68 74 28 31 |<eye .B |height(1|
|00002f40| 2c 71 29 3e 65 79 65 29 | 20 80 8a 20 65 79 65 63 |,q)>eye)| .. eyec|
|00002f50| 68 65 63 6b 3d 30 29 00 | 20 20 20 20 20 20 20 20 |heck=0).|        |
|00002f60| 20 20 80 16 20 77 3d 30 | 20 80 18 20 63 6f 75 6e |  .. w=0| .. coun|
|00002f70| 74 28 71 29 00 20 20 20 | 20 20 20 20 20 20 20 20 |t(q).   |        |
|00002f80| 20 61 30 2e 71 3d bc 10 | 28 78 2c 79 2c 78 67 28 | a0.q=..|(x,y,xg(|
|00002f90| 30 2c 77 2c 71 29 2c 79 | 67 28 30 2c 77 2c 71 29 |0,w,q),y|g(0,w,q)|
|00002fa0| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 61 31 |).      |      a1|
|00002fb0| 2e 71 3d bc 10 28 78 2c | 79 2c 78 67 28 31 2c 77 |.q=..(x,|y,xg(1,w|
|00002fc0| 2c 71 29 2c 79 67 28 31 | 2c 77 2c 71 29 29 00 20 |,q),yg(1|,w,q)). |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 20 20 64 69 66 66 2e |        |   diff.|
|00002fe0| 71 3d 61 31 2d 61 30 00 | 20 20 20 20 20 20 20 20 |q=a1-a0.|        |
|00002ff0| 20 20 20 20 80 0b 20 64 | 69 66 66 3e 30 2e 35 20 |    .. d|iff>0.5 |
|00003000| 3a 20 64 69 66 66 3d 64 | 69 66 66 2d 31 20 3a 20 |: diff=d|iff-1 : |
|00003010| 80 02 20 80 0b 00 20 20 | 20 20 20 20 20 20 20 20 |.. ...  |        |
|00003020| 20 20 80 0b 20 64 69 66 | 66 3c 2d 30 2e 35 20 3a |  .. dif|f<-0.5 :|
|00003030| 20 64 69 66 66 3d 64 69 | 66 66 2b 31 20 3a 20 80 | diff=di|ff+1 : .|
|00003040| 02 20 80 0b 00 20 20 20 | 20 20 20 20 20 20 20 20 |. ...   |        |
|00003050| 20 80 0b 20 64 69 66 66 | 3c 30 20 3a 20 80 be 20 | .. diff|<0 : .. |
|00003060| 80 16 20 3a 20 80 05 20 | 6f 75 74 33 20 3a 20 80 |.. : .. |out3 : .|
|00003070| 02 20 80 0b 00 20 20 20 | 20 20 20 20 20 20 20 80 |. ...   |       .|
|00003080| 17 00 20 20 20 20 20 20 | 20 20 20 20 73 3d 71 00 |..      |    s=q.|
|00003090| 20 20 20 20 20 20 20 20 | 20 20 6f 75 74 33 3a 00 |        |  out3:.|
|000030a0| 20 20 20 20 20 20 20 20 | 80 02 20 80 0b 00 20 20 |        |.. ...  |
|000030b0| 20 20 20 20 80 17 00 20 | 20 20 20 80 02 20 80 0b |    ... |   .. ..|
|000030c0| 00 20 20 80 02 20 80 0b | 00 00 20 20 80 09 20 80 |.  .. ..|..  .. .|
|000030d0| 07 20 73 00 00 80 02 20 | 80 09 00 2e 67 65 74 6f |. s.... |....geto|
|000030e0| 62 6a 00 80 09 20 67 65 | 74 6f 62 6a 7b 7d 00 00 |bj... ge|tobj{}..|
|000030f0| 20 20 3b 20 67 65 74 20 | 61 6e 20 6f 62 6a 65 63 |  ; get |an objec|
|00003100| 74 00 00 20 20 80 15 20 | 4e 53 2c 4e 4f 2c 73 65 |t..  .. |NS,NO,se|
|00003110| 63 2c 78 67 28 29 2c 79 | 67 28 29 2c 63 6f 75 6e |c,xg(),y|g(),coun|
|00003120| 74 28 29 2c 78 73 74 61 | 72 74 2c 79 73 74 61 72 |t(),xsta|rt,ystar|
|00003130| 74 2c 74 24 2c 70 73 65 | 63 2c 70 63 6f 75 6e 74 |t,t$,pse|c,pcount|
|00003140| 2c 73 63 2c 78 6f 66 66 | 2c 79 6f 66 66 2c 6f 78 |,sc,xoff|,yoff,ox|
|00003150| 28 29 2c 6f 79 28 29 2c | 6f 73 65 63 28 29 00 00 |(),oy(),|osec()..|
|00003160| 20 20 80 2c 20 c5 01 20 | 31 00 20 20 80 bb 20 3a |  ., .. |1.  .. :|
|00003170| 20 80 0c 20 c5 02 3c 3e | 24 38 20 3a 20 80 c1 20 | .. ..<>|$8 : .. |
|00003180| 3a 20 6d 3d c5 22 20 3a | 20 80 bc 20 6d 3d 31 20 |: m=." :| .. m=1 |
|00003190| 80 8a 20 6d 3d 32 00 20 | 20 78 3d 28 c5 1a 2d 78 |.. m=2. | x=(..-x|
|000031a0| 6f 66 66 29 2a 73 63 20 | 3a 20 79 3d 28 c5 1b 2d |off)*sc |: y=(..-|
|000031b0| 79 6f 66 66 29 2a 28 73 | 63 2a 32 29 00 00 20 20 |yoff)*(s|c*2)..  |
|000031c0| 6f 3d 2d 31 00 00 20 20 | 80 0b 20 6d 3d 31 00 20 |o=-1..  |.. m=1. |
|000031d0| 20 20 20 80 16 20 71 3d | 30 20 80 18 20 4e 4f 00 |   .. q=|0 .. NO.|
|000031e0| 20 20 20 20 20 20 80 0b | 20 6f 73 65 63 28 71 29 |      ..| osec(q)|
|000031f0| 3e 2d 31 00 20 20 20 20 | 20 20 20 20 80 0b 20 bc |>-1.    |    .. .|
|00003200| 09 28 78 2d 6f 78 28 71 | 29 29 3c 33 32 20 80 42 |.(x-ox(q|))<32 .B|
|00003210| 20 bc 09 28 79 2d 6f 79 | 28 71 29 29 3c 33 32 00 | ..(y-oy|(q))<32.|
|00003220| 20 20 20 20 20 20 20 20 | 20 20 6f 3d 71 00 20 20 |        |  o=q.  |
|00003230| 20 20 20 20 20 20 80 02 | 20 80 0b 00 20 20 20 20 |      ..| ...    |
|00003240| 20 20 80 02 20 80 0b 00 | 20 20 20 20 80 17 00 20 |  .. ...|    ... |
|00003250| 20 80 02 20 80 0b 00 00 | 20 20 80 09 20 80 07 20 | .. ....|  .. .. |
|00003260| 6f 00 00 80 02 20 80 09 | 00 2e 67 65 74 65 6e 65 |o.... ..|..getene|
|00003270| 6d 79 00 80 09 20 67 65 | 74 65 6e 65 6d 79 7b 7d |my... ge|tenemy{}|
|00003280| 00 00 20 20 80 15 20 4e | 53 2c 4e 4f 2c 4e 45 2c |..  .. N|S,NO,NE,|
|00003290| 73 65 63 2c 78 67 28 29 | 2c 79 67 28 29 2c 63 6f |sec,xg()|,yg(),co|
|000032a0| 75 6e 74 28 29 2c 78 73 | 74 61 72 74 2c 79 73 74 |unt(),xs|tart,yst|
|000032b0| 61 72 74 2c 74 24 2c 70 | 73 65 63 2c 70 63 6f 75 |art,t$,p|sec,pcou|
|000032c0| 6e 74 2c 73 63 2c 78 6f | 66 66 2c 79 6f 66 66 2c |nt,sc,xo|ff,yoff,|
|000032d0| 6f 78 28 29 2c 6f 79 28 | 29 2c 6f 73 65 63 28 29 |ox(),oy(|),osec()|
|000032e0| 00 00 20 20 80 2c 20 c5 | 01 20 31 00 20 20 80 bb |..  ., .|. 1.  ..|
|000032f0| 20 3a 20 80 0c 20 c5 02 | 3c 3e 24 38 20 3a 20 80 | : .. ..|<>$8 : .|
|00003300| c1 20 3a 20 6d 3d c5 22 | 20 3a 20 80 bc 20 6d 3d |. : m=."| : .. m=|
|00003310| 31 20 80 8a 20 6d 3d 32 | 00 20 20 78 3d 28 c5 1a |1 .. m=2|.  x=(..|
|00003320| 2d 78 6f 66 66 29 2a 73 | 63 20 3a 20 79 3d 28 c5 |-xoff)*s|c : y=(.|
|00003330| 1b 2d 79 6f 66 66 29 2a | 28 73 63 2a 32 29 00 00 |.-yoff)*|(sc*2)..|
|00003340| 20 20 6f 3d 2d 31 00 00 | 20 20 80 0b 20 6d 3d 31 |  o=-1..|  .. m=1|
|00003350| 00 20 20 20 20 80 16 20 | 71 3d 4e 4f 2b 31 20 80 |.    .. |q=NO+1 .|
|00003360| 18 20 4e 4f 2b 4e 45 00 | 20 20 20 20 20 20 80 0b |. NO+NE.|      ..|
|00003370| 20 6f 73 65 63 28 71 29 | 3e 2d 31 00 20 20 20 20 | osec(q)|>-1.    |
|00003380| 20 20 20 20 80 0b 20 bc | 09 28 78 2d 6f 78 28 71 |    .. .|.(x-ox(q|
|00003390| 29 29 3c 33 32 20 80 42 | 20 bc 09 28 79 2d 6f 79 |))<32 .B| ..(y-oy|
|000033a0| 28 71 29 29 3c 33 32 00 | 20 20 20 20 20 20 20 20 |(q))<32.|        |
|000033b0| 20 20 6f 3d 71 00 20 20 | 20 20 20 20 20 20 80 02 |  o=q.  |      ..|
|000033c0| 20 80 0b 00 20 20 20 20 | 20 20 80 02 20 80 0b 00 | ...    |  .. ...|
|000033d0| 20 20 20 20 80 17 00 20 | 20 80 02 20 80 0b 00 00 |    ... | .. ....|
|000033e0| 20 20 80 09 20 80 07 20 | 6f 00 00 80 02 20 80 09 |  .. .. |o.... ..|
|000033f0| 00 2e 67 65 74 6c 69 67 | 68 74 00 80 09 20 67 65 |..getlig|ht... ge|
|00003400| 74 6c 69 67 68 74 7b 7d | 00 00 20 20 3b 20 67 65 |tlight{}|..  ; ge|
|00003410| 74 20 61 20 6c 69 67 68 | 74 00 00 20 20 80 15 20 |t a ligh|t..  .. |
|00003420| 4e 53 2c 4e 4c 2c 73 65 | 63 2c 78 67 28 29 2c 79 |NS,NL,se|c,xg(),y|
|00003430| 67 28 29 2c 63 6f 75 6e | 74 28 29 2c 78 73 74 61 |g(),coun|t(),xsta|
|00003440| 72 74 2c 79 73 74 61 72 | 74 2c 74 24 2c 70 73 65 |rt,ystar|t,t$,pse|
|00003450| 63 2c 70 63 6f 75 6e 74 | 2c 73 63 2c 78 6f 66 66 |c,pcount|,sc,xoff|
|00003460| 2c 79 6f 66 66 2c 6c 78 | 28 29 2c 6c 79 28 29 2c |,yoff,lx|(),ly(),|
|00003470| 6c 6c 28 29 00 00 20 20 | 80 2c 20 c5 01 20 31 00 |ll()..  |., .. 1.|
|00003480| 20 20 80 bb 20 3a 20 80 | 0c 20 c5 02 3c 3e 24 38 |  .. : .|. ..<>$8|
|00003490| 20 3a 20 80 c1 20 3a 20 | 6d 3d c5 22 20 3a 20 80 | : .. : |m=." : .|
|000034a0| bc 20 6d 3d 31 20 80 8a | 20 6d 3d 32 00 20 20 78 |. m=1 ..| m=2.  x|
|000034b0| 3d 28 c5 1a 2d 78 6f 66 | 66 29 2a 73 63 20 3a 20 |=(..-xof|f)*sc : |
|000034c0| 79 3d 28 c5 1b 2d 79 6f | 66 66 29 2a 28 73 63 2a |y=(..-yo|ff)*(sc*|
|000034d0| 32 29 00 00 20 20 6f 3d | 2d 31 00 00 20 20 80 0b |2)..  o=|-1..  ..|
|000034e0| 20 6d 3d 31 00 20 20 20 | 20 80 16 20 71 3d 30 20 | m=1.   | .. q=0 |
|000034f0| 80 18 20 4e 4c 00 20 20 | 20 20 20 20 80 0b 20 6c |.. NL.  |    .. l|
|00003500| 6c 28 71 29 3e 2d 31 00 | 20 20 20 20 20 20 20 20 |l(q)>-1.|        |
|00003510| 80 0b 20 bc 09 28 78 2d | 6c 78 28 71 29 29 3c 33 |.. ..(x-|lx(q))<3|
|00003520| 32 20 80 42 20 bc 09 28 | 79 2d 6c 79 28 71 29 29 |2 .B ..(|y-ly(q))|
|00003530| 3c 33 32 00 20 20 20 20 | 20 20 20 20 20 20 6f 3d |<32.    |      o=|
|00003540| 71 00 20 20 20 20 20 20 | 20 20 80 02 20 80 0b 00 |q.      |  .. ...|
|00003550| 20 20 20 20 20 20 80 02 | 20 80 0b 00 20 20 20 20 |      ..| ...    |
|00003560| 80 17 00 20 20 80 02 20 | 80 0b 00 00 20 20 80 09 |...  .. |....  ..|
|00003570| 20 80 07 20 6f 00 00 80 | 02 20 80 09 00 00 80 09 | .. o...|. ......|
|00003580| 20 63 68 65 63 6b 73 65 | 63 7b 73 2c 63 6f 75 6e | checkse|c{s,coun|
|00003590| 74 7d 00 00 20 20 80 15 | 20 4e 53 2c 73 65 63 2c |t}..  ..| NS,sec,|
|000035a0| 78 67 28 29 2c 79 67 28 | 29 2c 78 73 74 61 72 74 |xg(),yg(|),xstart|
|000035b0| 2c 79 73 74 61 72 74 2c | 74 24 2c 70 73 65 63 2c |,ystart,|t$,psec,|
|000035c0| 70 63 6f 75 6e 74 2c 73 | 63 2c 78 6f 66 66 2c 79 |pcount,s|c,xoff,y|
|000035d0| 6f 66 66 00 20 20 78 74 | 6f 74 3d 30 20 3a 20 79 |off.  xt|ot=0 : y|
|000035e0| 74 6f 74 3d 30 00 20 20 | 80 16 20 71 3d 30 20 80 |tot=0.  |.. q=0 .|
|000035f0| 18 20 63 6f 75 6e 74 00 | 20 20 20 20 78 74 6f 74 |. count.|    xtot|
|00003600| 3d 78 74 6f 74 2b 78 67 | 28 30 2c 71 2c 73 29 00 |=xtot+xg|(0,q,s).|
|00003610| 20 20 20 20 79 74 6f 74 | 3d 79 74 6f 74 2b 79 67 |    ytot|=ytot+yg|
|00003620| 28 30 2c 71 2c 73 29 00 | 20 20 80 17 00 20 20 78 |(0,q,s).|  ...  x|
|00003630| 3d 78 74 6f 74 2f 28 63 | 6f 75 6e 74 2b 31 29 20 |=xtot/(c|ount+1) |
|00003640| 3a 20 79 3d 79 74 6f 74 | 2f 28 63 6f 75 6e 74 2b |: y=ytot|/(count+|
|00003650| 31 29 00 20 20 67 3d 2d | 31 00 20 20 80 16 20 77 |1).  g=-|1.  .. w|
|00003660| 3d 30 20 80 18 20 63 6f | 75 6e 74 00 20 20 20 20 |=0 .. co|unt.    |
|00003670| 61 30 2e 71 3d bc 10 28 | 78 2c 79 2c 78 67 28 30 |a0.q=..(|x,y,xg(0|
|00003680| 2c 77 2c 73 29 2c 79 67 | 28 30 2c 77 2c 73 29 29 |,w,s),yg|(0,w,s))|
|00003690| 00 20 20 20 20 61 31 2e | 71 3d bc 10 28 78 2c 79 |.    a1.|q=..(x,y|
|000036a0| 2c 78 67 28 31 2c 77 2c | 73 29 2c 79 67 28 31 2c |,xg(1,w,|s),yg(1,|
|000036b0| 77 2c 73 29 29 00 20 20 | 20 20 64 69 66 66 2e 71 |w,s)).  |  diff.q|
|000036c0| 3d 61 31 2d 61 30 00 20 | 20 20 20 80 0b 20 64 69 |=a1-a0. |   .. di|
|000036d0| 66 66 3e 30 2e 35 20 3a | 20 64 69 66 66 3d 64 69 |ff>0.5 :| diff=di|
|000036e0| 66 66 2d 31 20 3a 20 80 | 02 20 80 0b 00 20 20 20 |ff-1 : .|. ...   |
|000036f0| 20 80 0b 20 64 69 66 66 | 3c 2d 30 2e 35 20 3a 20 | .. diff|<-0.5 : |
|00003700| 64 69 66 66 3d 64 69 66 | 66 2b 31 20 3a 20 80 02 |diff=dif|f+1 : ..|
|00003710| 20 80 0b 00 20 20 20 20 | 80 0b 20 64 69 66 66 3c | ...    |.. diff<|
|00003720| 30 20 3a 20 67 3d 30 20 | 3a 20 80 02 20 80 0b 00 |0 : g=0 |: .. ...|
|00003730| 20 20 80 17 00 00 20 20 | 80 09 20 80 07 20 67 00 |  ....  |.. .. g.|
|00003740| 00 80 02 20 80 09 00 2e | 6e 65 77 73 65 63 00 80 |... ....|newsec..|
|00003750| 08 20 6e 65 77 73 65 63 | 7b 73 2c 63 2c 6e 73 7d |. newsec|{s,c,ns}|
|00003760| 00 00 20 20 3b 20 63 72 | 65 61 74 65 20 6e 65 77 |..  ; cr|eate new|
|00003770| 20 73 65 63 74 69 6f 6e | 00 00 20 20 80 15 20 4e | section|..  .. N|
|00003780| 53 2c 4e 2c 73 65 63 2c | 78 67 28 29 2c 79 67 28 |S,N,sec,|xg(),yg(|
|00003790| 29 2c 6a 6f 69 6e 28 29 | 2c 63 6f 75 6e 74 28 29 |),join()|,count()|
|000037a0| 2c 74 78 77 28 29 2c 68 | 65 69 67 68 74 28 29 2c |,txw(),h|eight(),|
|000037b0| 74 78 28 29 2c 78 73 74 | 61 72 74 2c 79 73 74 61 |tx(),xst|art,ysta|
|000037c0| 72 74 2c 74 24 2c 70 73 | 65 63 2c 73 63 2c 78 6f |rt,t$,ps|ec,sc,xo|
|000037d0| 66 66 2c 79 6f 66 66 00 | 20 20 80 15 20 65 79 65 |ff,yoff.|  .. eye|
|000037e0| 2c 67 78 6f 66 66 2c 67 | 79 6f 66 66 2c 65 79 65 |,gxoff,g|yoff,eye|
|000037f0| 63 68 65 63 6b 00 20 20 | 80 2c 20 c5 01 20 31 00 |check.  |., .. 1.|
|00003800| 00 20 20 63 6f 75 6e 74 | 3d 30 00 00 20 20 78 67 |.  count|=0..  xg|
|00003810| 28 30 2c 63 6f 75 6e 74 | 2c 6e 73 29 3d 78 67 28 |(0,count|,ns)=xg(|
|00003820| 31 2c 63 2c 73 29 20 3a | 20 79 67 28 30 2c 63 6f |1,c,s) :| yg(0,co|
|00003830| 75 6e 74 2c 6e 73 29 3d | 79 67 28 31 2c 63 2c 73 |unt,ns)=|yg(1,c,s|
|00003840| 29 00 20 20 78 30 3d 78 | 67 28 30 2c 30 2c 6e 73 |).  x0=x|g(0,0,ns|
|00003850| 29 2f 73 63 2b 78 6f 66 | 66 20 3a 20 79 30 3d 79 |)/sc+xof|f : y0=y|
|00003860| 67 28 30 2c 30 2c 6e 73 | 29 2f 28 73 63 2a 32 29 |g(0,0,ns|)/(sc*2)|
|00003870| 2b 79 6f 66 66 00 20 20 | 78 67 28 31 2c 63 6f 75 |+yoff.  |xg(1,cou|
|00003880| 6e 74 2c 6e 73 29 3d 78 | 67 28 30 2c 63 2c 73 29 |nt,ns)=x|g(0,c,s)|
|00003890| 20 3a 20 79 67 28 31 2c | 63 6f 75 6e 74 2c 6e 73 | : yg(1,|count,ns|
|000038a0| 29 3d 79 67 28 30 2c 63 | 2c 73 29 00 20 20 78 69 |)=yg(0,c|,s).  xi|
|000038b0| 3d 78 67 28 31 2c 63 6f | 75 6e 74 2c 6e 73 29 2f |=xg(1,co|unt,ns)/|
|000038c0| 73 63 2b 78 6f 66 66 20 | 3a 20 79 69 3d 79 67 28 |sc+xoff |: yi=yg(|
|000038d0| 31 2c 63 6f 75 6e 74 2c | 6e 73 29 2f 28 73 63 2a |1,count,|ns)/(sc*|
|000038e0| 32 29 2b 79 6f 66 66 00 | 20 20 63 6f 75 6e 74 3d |2)+yoff.|  count=|
|000038f0| 31 20 3a 20 64 6f 6e 65 | 3d 30 00 20 20 78 67 28 |1 : done|=0.  xg(|
|00003900| 30 2c 63 6f 75 6e 74 2c | 6e 73 29 3d 28 78 69 2d |0,count,|ns)=(xi-|
|00003910| 78 6f 66 66 29 2a 73 63 | 20 3a 20 79 67 28 30 2c |xoff)*sc| : yg(0,|
|00003920| 63 6f 75 6e 74 2c 6e 73 | 29 3d 28 79 69 2d 79 6f |count,ns|)=(yi-yo|
|00003930| 66 66 29 2a 28 73 63 2a | 32 29 00 00 20 20 68 65 |ff)*(sc*|2)..  he|
|00003940| 69 67 68 74 28 30 2c 6e | 73 29 3d 68 65 69 67 68 |ight(0,n|s)=heigh|
|00003950| 74 28 30 2c 73 29 00 20 | 20 68 65 69 67 68 74 28 |t(0,s). | height(|
|00003960| 31 2c 6e 73 29 3d 68 65 | 69 67 68 74 28 31 2c 73 |1,ns)=he|ight(1,s|
|00003970| 29 00 20 20 74 78 28 30 | 2c 6e 73 29 3d 74 78 28 |).  tx(0|,ns)=tx(|
|00003980| 30 2c 73 29 00 20 20 74 | 78 28 31 2c 6e 73 29 3d |0,s).  t|x(1,ns)=|
|00003990| 74 78 28 31 2c 73 29 00 | 00 20 20 80 bb 00 00 20 |tx(1,s).|.  .... |
|000039a0| 20 20 20 80 0c 20 c5 03 | 3c 3e 24 38 00 20 20 20 |   .. ..|<>$8.   |
|000039b0| 20 20 20 78 3d 28 c5 1a | 2d 78 6f 66 66 29 2a 73 |   x=(..|-xoff)*s|
|000039c0| 63 20 3a 20 79 3d 28 c5 | 1b 2d 79 6f 66 66 29 2a |c : y=(.|.-yoff)*|
|000039d0| 73 63 2a 32 20 3a 20 70 | 63 6f 75 6e 74 3d 2d 31 |sc*2 : p|count=-1|
|000039e0| 00 20 20 20 20 20 20 78 | 3d 78 2f 33 32 2a 33 32 |.      x|=x/32*32|
|000039f0| 2b 67 78 6f 66 66 20 3a | 20 79 3d 79 2f 33 32 2a |+gxoff :| y=y/32*|
|00003a00| 33 32 2b 67 79 6f 66 66 | 00 20 20 20 20 20 20 78 |32+gyoff|.      x|
|00003a10| 3d 78 2f 73 63 2b 78 6f | 66 66 20 3a 20 79 3d 79 |=x/sc+xo|ff : y=y|
|00003a20| 2f 28 73 63 2a 32 29 2b | 79 6f 66 66 00 20 20 20 |/(sc*2)+|yoff.   |
|00003a30| 20 20 20 c5 1d 20 32 00 | 20 20 20 20 20 20 c5 1e |   .. 2.|      ..|
|00003a40| 20 78 69 2c 79 69 2c 78 | 2c 79 2c 31 20 3a 20 c5 | xi,yi,x|,y,1 : .|
|00003a50| 1e 20 78 69 2c 79 69 2c | 78 2c 79 2c 31 00 20 20 |. xi,yi,|x,y,1.  |
|00003a60| 20 20 20 20 c5 1d 20 30 | 00 20 20 20 20 20 20 80 |    .. 0|.      .|
|00003a70| 0b 20 b1 02 28 24 34 30 | 29 00 20 20 20 20 20 20 |. ..($40|).      |
|00003a80| 20 20 78 3d 78 30 20 3a | 20 79 3d 79 30 20 3a 20 |  x=x0 :| y=y0 : |
|00003a90| 62 3d 31 20 3a 80 05 20 | 6f 75 74 6e 73 00 20 20 |b=1 :.. |outns.  |
|00003aa0| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 80 c1 |    .. .|..    ..|
|00003ab0| 20 3a 20 62 3d c5 22 00 | 20 20 20 20 6f 75 74 6e | : b=.".|    outn|
|00003ac0| 73 3a 00 00 20 20 20 20 | 80 0b 20 28 28 78 3e 30 |s:..    |.. ((x>0|
|00003ad0| 20 80 42 20 78 3c c5 2b | 29 20 80 42 20 28 79 3e | .B x<.+|) .B (y>|
|00003ae0| 30 20 80 42 20 79 3c c5 | 2b 29 29 00 20 20 20 20 |0 .B y<.|+)).    |
|00003af0| 20 20 80 0b 20 62 3d 31 | 20 80 42 20 63 6f 75 6e |  .. b=1| .B coun|
|00003b00| 74 3c 4e 00 20 20 20 20 | 20 20 20 20 20 20 c5 1e |t<N.    |      ..|
|00003b10| 20 78 69 2c 79 69 2c 78 | 2c 79 2c 31 00 20 20 20 | xi,yi,x|,y,1.   |
|00003b20| 20 20 20 20 20 20 20 78 | 67 28 31 2c 63 6f 75 6e |       x|g(1,coun|
|00003b30| 74 2c 6e 73 29 3d 28 78 | 2d 78 6f 66 66 29 2a 73 |t,ns)=(x|-xoff)*s|
|00003b40| 63 20 3a 20 79 67 28 31 | 2c 63 6f 75 6e 74 2c 6e |c : yg(1|,count,n|
|00003b50| 73 29 3d 28 79 2d 79 6f | 66 66 29 2a 28 73 63 2a |s)=(y-yo|ff)*(sc*|
|00003b60| 32 29 00 20 20 20 20 20 | 20 20 20 20 20 63 6f 75 |2).     |     cou|
|00003b70| 6e 74 3d 63 6f 75 6e 74 | 2b 31 00 20 20 20 20 20 |nt=count|+1.     |
|00003b80| 20 20 20 20 20 78 67 28 | 30 2c 63 6f 75 6e 74 2c |     xg(|0,count,|
|00003b90| 6e 73 29 3d 28 78 2d 78 | 6f 66 66 29 2a 73 63 20 |ns)=(x-x|off)*sc |
|00003ba0| 3a 20 79 67 28 30 2c 63 | 6f 75 6e 74 2c 6e 73 29 |: yg(0,c|ount,ns)|
|00003bb0| 3d 28 79 2d 79 6f 66 66 | 29 2a 28 73 63 2a 32 29 |=(y-yoff|)*(sc*2)|
|00003bc0| 00 20 20 20 20 20 20 20 | 20 20 20 78 69 3d 78 20 |.       |   xi=x |
|00003bd0| 3a 20 79 69 3d 79 00 20 | 20 20 20 20 20 20 20 20 |: yi=y. |        |
|00003be0| 20 80 16 20 71 3d 30 20 | 80 18 20 4e 53 00 20 20 | .. q=0 |.. NS.  |
|00003bf0| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 63 6f 75 |        |  .. cou|
|00003c00| 6e 74 28 71 29 3e 30 20 | 80 42 20 71 3c 3e 6e 73 |nt(q)>0 |.B q<>ns|
|00003c10| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |.       |       .|
|00003c20| 16 20 77 3d 30 20 80 18 | 20 63 6f 75 6e 74 28 71 |. w=0 ..| count(q|
|00003c30| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00003c40| 20 20 80 0b 20 78 67 28 | 31 2c 77 2c 71 29 3d 78 |  .. xg(|1,w,q)=x|
|00003c50| 67 28 30 2c 63 6f 75 6e | 74 2d 31 2c 6e 73 29 20 |g(0,coun|t-1,ns) |
|00003c60| 80 42 20 79 67 28 31 2c | 77 2c 71 29 3d 79 67 28 |.B yg(1,|w,q)=yg(|
|00003c70| 30 2c 63 6f 75 6e 74 2d | 31 2c 6e 73 29 00 20 20 |0,count-|1,ns).  |
|00003c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c90| 80 0b 20 78 67 28 30 2c | 77 2c 71 29 3d 78 67 28 |.. xg(0,|w,q)=xg(|
|00003ca0| 31 2c 63 6f 75 6e 74 2d | 31 2c 6e 73 29 20 80 42 |1,count-|1,ns) .B|
|00003cb0| 20 79 67 28 30 2c 77 2c | 71 29 3d 79 67 28 31 2c | yg(0,w,|q)=yg(1,|
|00003cc0| 63 6f 75 6e 74 2d 31 2c | 6e 73 29 00 20 20 20 20 |count-1,|ns).    |
|00003cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ce0| 80 0b 20 28 28 68 65 69 | 67 68 74 28 30 2c 71 29 |.. ((hei|ght(0,q)|
|00003cf0| 3c 68 65 69 67 68 74 28 | 31 2c 6e 73 29 20 80 42 |<height(|1,ns) .B|
|00003d00| 20 68 65 69 67 68 74 28 | 31 2c 71 29 3e 68 65 69 | height(|1,q)>hei|
|00003d10| 67 68 74 28 30 2c 6e 73 | 29 29 20 80 8a 20 65 79 |ght(0,ns|)) .. ey|
|00003d20| 65 63 68 65 63 6b 3d 30 | 29 00 20 20 20 20 20 20 |echeck=0|).      |
|00003d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d40| 6a 6f 69 6e 28 63 6f 75 | 6e 74 2d 31 2c 6e 73 29 |join(cou|nt-1,ns)|
|00003d50| 3d 71 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=q.     |        |
|00003d60| 20 20 20 20 20 20 20 20 | 20 6a 6f 69 6e 28 77 2c |        | join(w,|
|00003d70| 71 29 3d 6e 73 00 20 20 | 20 20 20 20 20 20 20 20 |q)=ns.  |        |
|00003d80| 20 20 20 20 20 20 20 20 | 20 20 80 02 20 80 0b 00 |        |  .. ...|
|00003d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003da0| 20 20 80 02 20 80 0b 00 | 20 20 20 20 20 20 20 20 |  .. ...|        |
|00003db0| 20 20 20 20 20 20 20 20 | 80 02 20 80 0b 00 20 20 |        |.. ...  |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 17 00 20 |        |    ... |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 20 80 02 20 80 0b |        |   .. ..|
|00003de0| 00 20 20 20 20 20 20 20 | 20 20 20 80 17 00 20 20 |.       |   ...  |
|00003df0| 20 20 20 20 20 20 20 20 | 80 0b 20 78 67 28 31 2c |        |.. xg(1,|
|00003e00| 63 6f 75 6e 74 2d 31 2c | 6e 73 29 3d 28 78 30 2d |count-1,|ns)=(x0-|
|00003e10| 78 6f 66 66 29 2a 73 63 | 20 80 42 20 79 67 28 31 |xoff)*sc| .B yg(1|
|00003e20| 2c 63 6f 75 6e 74 2d 31 | 2c 6e 73 29 3d 28 79 30 |,count-1|,ns)=(y0|
|00003e30| 2d 79 6f 66 66 29 2a 28 | 73 63 2a 32 29 00 20 20 |-yoff)*(|sc*2).  |
|00003e40| 20 20 20 20 20 20 20 20 | 20 20 64 6f 6e 65 3d 2d |        |  done=-|
|00003e50| 31 00 20 20 20 20 20 20 | 20 20 20 20 80 02 20 80 |1.      |    .. .|
|00003e60| 0b 00 20 20 20 20 20 20 | 80 22 20 3a 20 80 0b 20 |..      |." : .. |
|00003e70| 62 3d 32 00 20 20 20 20 | 20 20 20 20 20 20 80 16 |b=2.    |      ..|
|00003e80| 20 71 3d 30 20 80 18 20 | 63 6f 75 6e 74 28 6e 73 | q=0 .. |count(ns|
|00003e90| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 6a 6f |).      |      jo|
|00003ea0| 69 6e 28 71 2c 6e 73 29 | 3d 2d 31 00 20 20 20 20 |in(q,ns)|=-1.    |
|00003eb0| 20 20 20 20 20 20 80 17 | 00 20 20 20 20 20 20 20 |      ..|.       |
|00003ec0| 20 20 20 63 6f 75 6e 74 | 3d 30 00 20 20 20 20 20 |   count|=0.     |
|00003ed0| 20 20 20 20 20 64 6f 6e | 65 3d 2d 31 00 20 20 20 |     don|e=-1.   |
|00003ee0| 20 20 20 80 02 20 80 0b | 20 3a 20 80 02 20 80 0b |   .. ..| : .. ..|
|00003ef0| 00 20 20 20 20 80 02 20 | 80 0b 00 00 20 20 80 bc |.    .. |....  ..|
|00003f00| 20 64 6f 6e 65 00 00 20 | 20 63 6f 75 6e 74 3d 63 | done.. | count=c|
|00003f10| 6f 75 6e 74 2d 31 00 20 | 20 80 0b 20 63 6f 75 6e |ount-1. | .. coun|
|00003f20| 74 3e 31 00 20 20 20 20 | 80 0b 20 63 68 65 63 6b |t>1.    |.. check|
|00003f30| 73 65 63 7b 6e 73 2c 63 | 6f 75 6e 74 7d 00 20 20 |sec{ns,c|ount}.  |
|00003f40| 20 20 20 20 6a 6f 69 6e | 28 30 2c 6e 73 29 3d 73 |    join|(0,ns)=s|
|00003f50| 00 20 20 20 20 20 20 6a | 6f 69 6e 28 63 2c 73 29 |.      j|oin(c,s)|
|00003f60| 3d 6e 73 00 20 20 20 20 | 20 20 63 6f 75 6e 74 28 |=ns.    |  count(|
|00003f70| 6e 73 29 3d 63 6f 75 6e | 74 00 20 20 20 20 20 20 |ns)=coun|t.      |
|00003f80| 80 16 20 70 3d 30 20 80 | 18 20 63 6f 75 6e 74 28 |.. p=0 .|. count(|
|00003f90| 6e 73 29 00 20 20 20 20 | 20 20 20 20 74 78 77 28 |ns).    |    txw(|
|00003fa0| 30 2c 70 2c 6e 73 29 3d | 74 78 77 28 30 2c 63 2c |0,p,ns)=|txw(0,c,|
|00003fb0| 73 29 00 20 20 20 20 20 | 20 20 20 74 78 77 28 31 |s).     |   txw(1|
|00003fc0| 2c 70 2c 6e 73 29 3d 74 | 78 77 28 30 2c 63 2c 73 |,p,ns)=t|xw(0,c,s|
|00003fd0| 29 00 20 20 20 20 20 20 | 80 17 00 20 20 20 20 20 |).      |...     |
|00003fe0| 20 73 65 63 3d 73 65 63 | 2b 31 00 20 20 20 20 80 | sec=sec|+1.    .|
|00003ff0| 02 20 80 0b 00 20 20 80 | 02 20 80 0b 00 00 80 02 |. ...  .|. ......|
|00004000| 20 80 08 00 2e 66 69 72 | 73 74 73 65 63 00 80 08 | ....fir|stsec...|
|00004010| 20 66 69 72 73 74 73 65 | 63 7b 7d 00 00 20 20 20 | firstse|c{}..   |
|00004020| 20 3b 20 63 72 65 61 74 | 65 20 66 69 72 73 74 20 | ; creat|e first |
|00004030| 73 65 63 74 69 6f 6e 00 | 00 20 20 20 20 80 15 20 |section.|.    .. |
|00004040| 4e 2c 4e 53 2c 73 65 63 | 2c 78 67 28 29 2c 79 67 |N,NS,sec|,xg(),yg|
|00004050| 28 29 2c 63 6f 75 6e 74 | 28 29 2c 78 73 74 61 72 |(),count|(),xstar|
|00004060| 74 2c 79 73 74 61 72 74 | 2c 74 24 2c 73 63 2c 78 |t,ystart|,t$,sc,x|
|00004070| 6f 66 66 2c 79 6f 66 66 | 2c 73 65 63 73 74 61 72 |off,yoff|,secstar|
|00004080| 74 00 20 20 20 20 80 15 | 20 65 79 65 2c 67 78 6f |t.    ..| eye,gxo|
|00004090| 66 66 2c 67 79 6f 66 66 | 00 00 20 20 20 20 63 6f |ff,gyoff|..    co|
|000040a0| 75 6e 74 3d 2d 31 00 20 | 20 20 20 64 6f 6e 65 3d |unt=-1. |   done=|
|000040b0| 30 00 00 20 20 20 20 80 | bb 00 00 20 20 20 20 20 |0..    .|...     |
|000040c0| 20 80 0c 20 c5 03 3c 3e | 24 38 00 20 20 20 20 20 | .. ..<>|$8.     |
|000040d0| 20 20 20 78 3d 28 c5 1a | 2d 78 6f 66 66 29 2a 73 |   x=(..|-xoff)*s|
|000040e0| 63 20 3a 20 79 3d 28 c5 | 1b 2d 79 6f 66 66 29 2a |c : y=(.|.-yoff)*|
|000040f0| 73 63 2a 32 00 20 20 20 | 20 20 20 20 20 78 3d 78 |sc*2.   |     x=x|
|00004100| 2f 33 32 2a 33 32 2b 67 | 78 6f 66 66 20 3a 20 79 |/32*32+g|xoff : y|
|00004110| 3d 79 2f 33 32 2a 33 32 | 2b 67 79 6f 66 66 00 20 |=y/32*32|+gyoff. |
|00004120| 20 20 20 20 20 20 20 78 | 3d 78 2f 73 63 2b 78 6f |       x|=x/sc+xo|
|00004130| 66 66 20 3a 20 79 3d 79 | 2f 28 73 63 2a 32 29 2b |ff : y=y|/(sc*2)+|
|00004140| 79 6f 66 66 00 20 20 20 | 20 20 20 20 20 80 0b 20 |yoff.   |     .. |
|00004150| 63 6f 75 6e 74 3e 2d 31 | 00 20 20 20 20 20 20 20 |count>-1|.       |
|00004160| 20 20 20 20 20 c5 1d 20 | 32 00 20 20 20 20 20 20 |     .. |2.      |
|00004170| 20 20 20 20 20 20 c5 1e | 20 78 69 2c 79 69 2c 78 |      ..| xi,yi,x|
|00004180| 2c 79 2c 31 20 3a 20 c5 | 1e 20 78 69 2c 79 69 2c |,y,1 : .|. xi,yi,|
|00004190| 78 2c 79 2c 31 00 20 20 | 20 20 20 20 20 20 20 20 |x,y,1.  |        |
|000041a0| 20 20 c5 1d 20 30 00 20 | 20 20 20 20 20 20 20 80 |  .. 0. |       .|
|000041b0| 02 20 80 0b 00 20 20 20 | 20 20 20 20 20 80 0b 20 |. ...   |     .. |
|000041c0| b1 02 28 24 34 30 29 00 | 20 20 20 20 20 20 20 20 |..($40).|        |
|000041d0| 20 20 78 3d 78 30 20 3a | 20 79 3d 79 30 20 3a 20 |  x=x0 :| y=y0 : |
|000041e0| 62 3d 31 20 3a 20 80 05 | 20 6f 75 74 66 73 00 20 |b=1 : ..| outfs. |
|000041f0| 20 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |       .|. ...   |
|00004200| 20 20 20 80 c1 20 3a 20 | 62 3d c5 22 00 00 20 20 |   .. : |b=."..  |
|00004210| 20 20 20 20 78 3d 28 c5 | 1a 2d 78 6f 66 66 29 2a |    x=(.|.-xoff)*|
|00004220| 73 63 20 3a 20 79 3d 28 | c5 1b 2d 79 6f 66 66 29 |sc : y=(|..-yoff)|
|00004230| 2a 73 63 2a 32 00 20 20 | 20 20 20 20 78 3d 78 2f |*sc*2.  |    x=x/|
|00004240| 33 32 2a 33 32 2b 67 78 | 6f 66 66 20 3a 20 79 3d |32*32+gx|off : y=|
|00004250| 79 2f 33 32 2a 33 32 2b | 67 79 6f 66 66 00 20 20 |y/32*32+|gyoff.  |
|00004260| 20 20 20 20 78 3d 78 2f | 73 63 2b 78 6f 66 66 20 |    x=x/|sc+xoff |
|00004270| 3a 20 79 3d 79 2f 28 73 | 63 2a 32 29 2b 79 6f 66 |: y=y/(s|c*2)+yof|
|00004280| 66 00 00 20 20 20 20 20 | 20 6f 75 74 66 73 3a 00 |f..     | outfs:.|
|00004290| 00 20 20 20 20 20 20 80 | 0b 20 28 28 78 3e 30 20 |.      .|. ((x>0 |
|000042a0| 80 42 20 78 3c c5 2b 29 | 20 80 42 20 28 79 3e 30 |.B x<.+)| .B (y>0|
|000042b0| 20 80 42 20 79 3c c5 2b | 29 29 20 80 42 20 62 3d | .B y<.+|)) .B b=|
|000042c0| 31 20 80 42 20 63 6f 75 | 6e 74 3c 4e 00 20 20 20 |1 .B cou|nt<N.   |
|000042d0| 20 20 20 20 20 80 0b 20 | 63 6f 75 6e 74 3d 2d 31 |     .. |count=-1|
|000042e0| 00 20 20 20 20 20 20 20 | 20 20 20 78 67 28 30 2c |.       |   xg(0,|
|000042f0| 30 2c 30 29 3d 28 78 2d | 78 6f 66 66 29 2a 73 63 |0,0)=(x-|xoff)*sc|
|00004300| 20 3a 20 79 67 28 30 2c | 30 2c 30 29 3d 28 79 2d | : yg(0,|0,0)=(y-|
|00004310| 79 6f 66 66 29 2a 73 63 | 2a 32 00 20 20 20 20 20 |yoff)*sc|*2.     |
|00004320| 20 20 20 20 20 63 6f 75 | 6e 74 3d 30 00 20 20 20 |     cou|nt=0.   |
|00004330| 20 20 20 20 20 20 20 78 | 30 3d 78 20 3a 20 79 30 |       x|0=x : y0|
|00004340| 3d 79 00 20 20 20 20 20 | 20 20 20 20 20 78 69 3d |=y.     |     xi=|
|00004350| 78 20 3a 20 79 69 3d 79 | 00 20 20 20 20 20 20 20 |x : yi=y|.       |
|00004360| 20 80 22 00 20 20 20 20 | 20 20 20 20 20 20 20 20 | .".    |        |
|00004370| c5 1e 20 78 69 2c 79 69 | 2c 78 2c 79 2c 31 00 20 |.. xi,yi|,x,y,1. |
|00004380| 20 20 20 20 20 20 20 20 | 20 20 20 78 67 28 31 2c |        |   xg(1,|
|00004390| 63 6f 75 6e 74 2c 30 29 | 3d 28 78 2d 78 6f 66 66 |count,0)|=(x-xoff|
|000043a0| 29 2a 73 63 20 3a 20 79 | 67 28 31 2c 63 6f 75 6e |)*sc : y|g(1,coun|
|000043b0| 74 2c 30 29 3d 28 79 2d | 79 6f 66 66 29 2a 73 63 |t,0)=(y-|yoff)*sc|
|000043c0| 2a 32 00 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |*2.     |       c|
|000043d0| 6f 75 6e 74 3d 63 6f 75 | 6e 74 2b 31 00 20 20 20 |ount=cou|nt+1.   |
|000043e0| 20 20 20 20 20 20 20 20 | 20 78 67 28 30 2c 63 6f |        | xg(0,co|
|000043f0| 75 6e 74 2c 30 29 3d 28 | 78 2d 78 6f 66 66 29 2a |unt,0)=(|x-xoff)*|
|00004400| 73 63 20 3a 20 79 67 28 | 30 2c 63 6f 75 6e 74 2c |sc : yg(|0,count,|
|00004410| 30 29 3d 28 79 2d 79 6f | 66 66 29 2a 73 63 2a 32 |0)=(y-yo|ff)*sc*2|
|00004420| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 78 69 3d |.       |     xi=|
|00004430| 78 20 3a 20 79 69 3d 79 | 00 20 20 20 20 20 20 20 |x : yi=y|.       |
|00004440| 20 20 20 20 20 80 0b 20 | 78 67 28 31 2c 63 6f 75 |     .. |xg(1,cou|
|00004450| 6e 74 2d 31 2c 30 29 3d | 28 78 30 2d 78 6f 66 66 |nt-1,0)=|(x0-xoff|
|00004460| 29 2a 73 63 20 80 42 20 | 79 67 28 31 2c 63 6f 75 |)*sc .B |yg(1,cou|
|00004470| 6e 74 2d 31 2c 30 29 3d | 28 79 30 2d 79 6f 66 66 |nt-1,0)=|(y0-yoff|
|00004480| 29 2a 73 63 2a 32 00 20 | 20 20 20 20 20 20 20 20 |)*sc*2. |        |
|00004490| 20 20 20 20 20 64 6f 6e | 65 3d 2d 31 00 20 20 20 |     don|e=-1.   |
|000044a0| 20 20 20 20 20 20 20 20 | 20 80 02 20 80 0b 00 20 |        | .. ... |
|000044b0| 20 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |       .|. ...   |
|000044c0| 20 20 20 80 22 20 3a 20 | 80 0b 20 62 3d 32 00 20 |   ." : |.. b=2. |
|000044d0| 20 20 20 20 20 20 20 63 | 6f 75 6e 74 3d 30 00 20 |       c|ount=0. |
|000044e0| 20 20 20 20 20 20 20 64 | 6f 6e 65 3d 2d 31 00 20 |       d|one=-1. |
|000044f0| 20 20 20 20 20 80 02 20 | 80 0b 20 3a 20 80 02 20 |     .. |.. : .. |
|00004500| 80 0b 00 00 20 20 20 20 | 80 bc 20 64 6f 6e 65 00 |....    |.. done.|
|00004510| 00 20 20 20 20 63 6f 75 | 6e 74 3d 63 6f 75 6e 74 |.    cou|nt=count|
|00004520| 2d 31 00 20 20 20 20 80 | 0b 20 63 6f 75 6e 74 3e |-1.    .|. count>|
|00004530| 31 00 20 20 20 20 20 20 | 80 0b 20 63 68 65 63 6b |1.      |.. check|
|00004540| 73 65 63 7b 30 2c 63 6f | 75 6e 74 7d 00 20 20 20 |sec{0,co|unt}.   |
|00004550| 20 20 20 20 20 63 6f 75 | 6e 74 28 30 29 3d 63 6f |     cou|nt(0)=co|
|00004560| 75 6e 74 00 20 20 20 20 | 20 20 20 20 80 2c 20 c5 |unt.    |    ., .|
|00004570| 01 20 31 20 3a 20 c5 3b | 20 22 4d 61 70 20 78 22 |. 1 : .;| "Map x"|
|00004580| 2b dd 83 28 33 32 2f 73 | 63 29 2c 22 53 65 74 20 |+..(32/s|c),"Set |
|00004590| 73 74 61 72 74 20 70 6f | 69 6e 74 22 00 20 20 20 |start po|int".   |
|000045a0| 20 20 20 20 20 80 bb 20 | 3a 20 80 0c 20 c5 03 3c |     .. |: .. ..<|
|000045b0| 3e 38 20 3a 20 80 c1 20 | 3a 20 62 3d c5 22 20 3a |>8 : .. |: b=." :|
|000045c0| 20 80 bc 20 62 3d 31 00 | 20 20 20 20 20 20 20 20 | .. b=1.|        |
|000045d0| 78 73 74 61 72 74 3d 28 | c5 1a 2d 78 6f 66 66 29 |xstart=(|..-xoff)|
|000045e0| 2a 73 63 20 3a 20 79 73 | 74 61 72 74 3d 28 c5 1b |*sc : ys|tart=(..|
|000045f0| 2d 79 6f 66 66 29 2a 73 | 63 2a 32 20 3a 20 73 65 |-yoff)*s|c*2 : se|
|00004600| 63 73 74 61 72 74 3d 30 | 00 20 20 20 20 20 20 20 |cstart=0|.       |
|00004610| 20 73 65 63 3d 30 00 20 | 20 20 20 20 20 80 02 20 | sec=0. |     .. |
|00004620| 80 0b 00 20 20 20 20 80 | 02 20 80 0b 00 00 80 02 |...    .|. ......|
|00004630| 20 80 08 00 00 80 09 20 | 52 7b 7d 00 00 20 20 20 | ...... |R{}..   |
|00004640| 20 80 15 20 41 44 00 20 | 20 20 20 52 31 3d 30 00 | .. AD. |   R1=0.|
|00004650| 20 20 20 20 da 01 2e 6c | 20 26 52 31 2c da 02 2e |    ...l| &R1,...|
|00004660| 6c 28 41 44 29 20 3a 20 | 41 44 3d 41 44 2b 34 00 |l(AD) : |AD=AD+4.|
|00004670| 20 20 20 20 80 09 20 80 | 07 20 52 31 00 00 80 02 |    .. .|. R1....|
|00004680| 20 80 09 00 2e 6c 6f 61 | 64 00 80 08 20 6c 30 61 | ....loa|d... l0a|
|00004690| 64 7b 66 24 2c 6f 6e 6c | 79 6d 61 70 7d 00 00 20 |d{f$,onl|ymap}.. |
|000046a0| 20 3b 20 6c 6f 61 64 20 | 66 72 6f 6d 20 66 69 6c | ; load |from fil|
|000046b0| 65 20 66 24 00 20 20 3b | 20 69 66 20 6f 6e 6c 79 |e f$.  ;| if only|
|000046c0| 6d 61 70 20 3a 20 64 6f | 6e 27 74 20 6c 6f 61 64 |map : do|n't load|
|000046d0| 20 65 6e 65 6d 69 65 73 | 2f 77 65 61 70 6f 6e 73 | enemies|/weapons|
|000046e0| 00 00 20 20 80 15 20 4e | 53 2c 78 67 28 29 2c 79 |..  .. N|S,xg(),y|
|000046f0| 67 28 29 2c 6a 6f 69 6e | 28 29 2c 74 78 77 28 29 |g(),join|(),txw()|
|00004700| 2c 63 6f 75 6e 74 28 29 | 2c 68 65 69 67 68 74 28 |,count()|,height(|
|00004710| 29 2c 74 78 28 29 2c 73 | 65 63 2c 78 73 74 61 72 |),tx(),s|ec,xstar|
|00004720| 74 2c 79 73 74 61 72 74 | 2c 73 65 63 73 74 61 72 |t,ystart|,secstar|
|00004730| 74 2c 41 44 00 20 20 80 | 15 20 4e 4f 2c 4e 45 2c |t,AD.  .|. NO,NE,|
|00004740| 4e 4c 2c 6f 78 28 29 2c | 6f 79 28 29 2c 6f 73 65 |NL,ox(),|oy(),ose|
|00004750| 63 28 29 2c 6f 69 6d 61 | 67 65 28 29 2c 6f 6d 6f |c(),oima|ge(),omo|
|00004760| 64 65 28 29 2c 6c 78 28 | 29 2c 6c 79 28 29 2c 6c |de(),lx(|),ly(),l|
|00004770| 6c 28 29 2c 73 65 63 6c | 28 29 00 20 20 80 15 20 |l(),secl|().  .. |
|00004780| 6f 68 69 74 28 29 2c 6f | 70 69 63 6b 28 29 2c 64 |ohit(),o|pick(),d|
|00004790| 6f 6f 72 28 29 2c 6c 69 | 66 74 28 29 2c 73 77 69 |oor(),li|ft(),swi|
|000047a0| 74 63 68 28 29 2c 65 66 | 66 65 63 74 28 29 2c 77 |tch(),ef|fect(),w|
|000047b0| 74 79 70 65 28 29 2c 65 | 74 79 70 65 28 29 00 20 |type(),e|type(). |
|000047c0| 20 80 15 20 74 65 78 74 | 75 72 65 24 28 29 2c 6f | .. text|ure$(),o|
|000047d0| 62 6a 65 63 74 24 28 29 | 2c 65 6e 65 6d 79 24 28 |bject$()|,enemy$(|
|000047e0| 29 2c 77 65 61 70 6f 6e | 24 28 29 2c 73 66 78 24 |),weapon|$(),sfx$|
|000047f0| 28 29 2c 6d 6f 64 65 28 | 29 2c 64 61 6d 61 67 65 |(),mode(|),damage|
|00004800| 28 29 2c 70 69 63 6b 75 | 70 28 29 00 20 20 80 15 |(),picku|p().  ..|
|00004810| 20 61 6e 69 6d 61 74 65 | 24 28 29 2c 61 74 79 70 | animate|$(),atyp|
|00004820| 65 28 29 2c 61 6d 61 70 | 28 29 2c 61 6c 69 73 74 |e(),amap|(),alist|
|00004830| 28 29 2c 6f 73 6f 75 6e | 64 28 29 00 00 20 20 80 |(),osoun|d()..  .|
|00004840| 0b 20 be 15 28 66 24 29 | 00 00 20 20 20 20 80 16 |. ..(f$)|..    ..|
|00004850| 20 71 3d 30 20 80 18 20 | 34 38 20 3a 20 74 65 78 | q=0 .. |48 : tex|
|00004860| 74 75 72 65 24 28 51 29 | 3d 22 22 20 3a 20 80 17 |ture$(Q)|="" : ..|
|00004870| 00 20 20 20 20 80 16 20 | 71 3d 30 20 80 18 20 34 |.    .. |q=0 .. 4|
|00004880| 38 20 3a 20 6f 62 6a 65 | 63 74 24 28 51 29 3d 22 |8 : obje|ct$(Q)="|
|00004890| 22 20 3a 20 80 17 00 20 | 20 20 20 80 16 20 71 3d |" : ... |   .. q=|
|000048a0| 30 20 80 18 20 39 20 3a | 20 73 66 78 24 28 51 29 |0 .. 9 :| sfx$(Q)|
|000048b0| 3d 22 22 20 3a 20 80 17 | 00 20 20 20 20 80 16 20 |="" : ..|.    .. |
|000048c0| 71 3d 30 20 80 18 20 31 | 35 20 3a 20 61 6e 69 6d |q=0 .. 1|5 : anim|
|000048d0| 61 74 65 24 28 51 29 3d | 22 22 20 3a 20 80 17 00 |ate$(Q)=|"" : ...|
|000048e0| 00 20 20 20 20 80 0b 20 | 80 89 20 6f 6e 6c 79 6d |.    .. |.. onlym|
|000048f0| 61 70 00 20 20 20 20 20 | 20 80 16 20 71 3d 30 20 |ap.     | .. q=0 |
|00004900| 80 18 20 39 20 3a 20 65 | 6e 65 6d 79 24 28 51 29 |.. 9 : e|nemy$(Q)|
|00004910| 3d 22 22 20 3a 20 80 17 | 00 20 20 20 20 20 20 80 |="" : ..|.      .|
|00004920| 16 20 71 3d 30 20 80 18 | 20 39 20 3a 20 77 65 61 |. q=0 ..| 9 : wea|
|00004930| 70 6f 6e 24 28 51 29 3d | 22 22 20 3a 20 80 17 00 |pon$(Q)=|"" : ...|
|00004940| 20 20 20 20 80 02 20 80 | 0b 00 00 20 20 20 20 a6 |    .. .|...    .|
|00004950| 04 20 31 2c 66 24 20 3a | 20 41 44 3d a6 01 28 31 |. 1,f$ :| AD=..(1|
|00004960| 29 00 00 20 20 20 20 78 | 73 74 61 72 74 3d 52 7b |)..    x|start=R{|
|00004970| 7d 00 20 20 20 20 79 73 | 74 61 72 74 3d 52 7b 7d |}.    ys|tart=R{}|
|00004980| 00 20 20 20 20 73 65 63 | 73 74 61 72 74 3d 52 7b |.    sec|start=R{|
|00004990| 7d 00 20 20 20 20 73 65 | 63 3d 52 7b 7d 00 00 20 |}.    se|c=R{}.. |
|000049a0| 20 20 20 80 16 20 73 3d | 30 20 80 18 20 4e 53 00 |   .. s=|0 .. NS.|
|000049b0| 20 20 20 20 20 20 20 20 | 63 6f 75 6e 74 28 73 29 |        |count(s)|
|000049c0| 3d 52 7b 7d 00 20 20 20 | 20 20 20 20 20 68 65 69 |=R{}.   |     hei|
|000049d0| 67 68 74 28 30 2c 73 29 | 3d 52 7b 7d 00 20 20 20 |ght(0,s)|=R{}.   |
|000049e0| 20 20 20 20 20 68 65 69 | 67 68 74 28 31 2c 73 29 |     hei|ght(1,s)|
|000049f0| 3d 52 7b 7d 00 20 20 20 | 20 20 20 20 20 74 78 28 |=R{}.   |     tx(|
|00004a00| 30 2c 73 29 3d 52 7b 7d | 00 20 20 20 20 20 20 20 |0,s)=R{}|.       |
|00004a10| 20 74 78 28 31 2c 73 29 | 3d 52 7b 7d 00 20 20 20 | tx(1,s)|=R{}.   |
|00004a20| 20 20 20 20 20 65 66 66 | 65 63 74 28 73 29 3d 52 |     eff|ect(s)=R|
|00004a30| 7b 7d 00 20 20 20 20 20 | 20 20 20 80 16 20 71 3d |{}.     |   .. q=|
|00004a40| 30 20 80 18 20 37 00 20 | 20 20 20 20 20 20 20 20 |0 .. 7. |        |
|00004a50| 20 73 65 63 6c 28 71 2c | 73 29 3d 52 7b 7d 00 20 | secl(q,|s)=R{}. |
|00004a60| 20 20 20 20 20 20 20 80 | 17 00 20 20 20 20 20 20 |       .|..      |
|00004a70| 20 20 80 16 20 71 3d 30 | 20 80 18 20 63 6f 75 6e |  .. q=0| .. coun|
|00004a80| 74 28 73 29 00 20 20 20 | 20 20 20 20 20 20 20 20 |t(s).   |        |
|00004a90| 20 80 16 20 77 3d 30 20 | 80 18 20 31 00 20 20 20 | .. w=0 |.. 1.   |
|00004aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 78 67 28 |        |     xg(|
|00004ab0| 77 2c 71 2c 73 29 3d 52 | 7b 7d 00 20 20 20 20 20 |w,q,s)=R|{}.     |
|00004ac0| 20 20 20 20 20 20 20 20 | 20 20 20 79 67 28 77 2c |        |   yg(w,|
|00004ad0| 71 2c 73 29 3d 52 7b 7d | 00 20 20 20 20 20 20 20 |q,s)=R{}|.       |
|00004ae0| 20 20 20 20 20 80 17 00 | 20 20 20 20 20 20 20 20 |     ...|        |
|00004af0| 20 20 20 20 6a 6f 69 6e | 28 71 2c 73 29 3d 52 7b |    join|(q,s)=R{|
|00004b00| 7d 00 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 55 |}.      |      NU|
|00004b10| 4c 3d 52 7b 7d 00 20 20 | 20 20 20 20 20 20 20 20 |L=R{}.  |        |
|00004b20| 20 20 4e 55 4c 3d 52 7b | 7d 00 20 20 20 20 20 20 |  NUL=R{|}.      |
|00004b30| 20 20 20 20 20 20 74 78 | 77 28 30 2c 71 2c 73 29 |      tx|w(0,q,s)|
|00004b40| 3d 52 7b 7d 00 20 20 20 | 20 20 20 20 20 20 20 20 |=R{}.   |        |
|00004b50| 20 74 78 77 28 31 2c 71 | 2c 73 29 3d 52 7b 7d 00 | txw(1,q|,s)=R{}.|
|00004b60| 20 20 20 20 20 20 20 20 | 80 17 00 20 20 20 20 80 |        |...    .|
|00004b70| 17 00 00 20 20 20 20 80 | 16 20 6f 3d 30 20 80 18 |...    .|. o=0 ..|
|00004b80| 20 4e 4f 2b 4e 45 00 20 | 20 20 20 20 20 6f 78 28 | NO+NE. |     ox(|
|00004b90| 6f 29 3d 52 7b 7d 00 20 | 20 20 20 20 20 6f 79 28 |o)=R{}. |     oy(|
|00004ba0| 6f 29 3d 52 7b 7d 00 20 | 20 20 20 20 20 6f 73 65 |o)=R{}. |     ose|
|00004bb0| 63 28 6f 29 3d 52 7b 7d | 00 20 20 20 20 20 20 6f |c(o)=R{}|.      o|
|00004bc0| 69 6d 61 67 65 28 30 2c | 6f 29 3d 52 7b 7d 00 20 |image(0,|o)=R{}. |
|00004bd0| 20 20 20 20 20 6f 6d 6f | 64 65 28 30 2c 6f 29 3d |     omo|de(0,o)=|
|00004be0| 52 7b 7d 00 20 20 20 20 | 20 20 6f 69 6d 61 67 65 |R{}.    |  oimage|
|00004bf0| 28 31 2c 6f 29 3d 52 7b | 7d 00 20 20 20 20 20 20 |(1,o)=R{|}.      |
|00004c00| 6f 6d 6f 64 65 28 31 2c | 6f 29 3d 52 7b 7d 00 20 |omode(1,|o)=R{}. |
|00004c10| 20 20 20 20 20 6f 68 69 | 74 28 6f 29 3d 52 7b 7d |     ohi|t(o)=R{}|
|00004c20| 00 20 20 20 20 20 20 6f | 70 69 63 6b 28 6f 29 3d |.      o|pick(o)=|
|00004c30| 52 7b 7d 00 20 20 20 20 | 20 20 6f 73 6f 75 6e 64 |R{}.    |  osound|
|00004c40| 28 6f 29 3d 52 7b 7d 00 | 20 20 20 20 80 17 00 00 |(o)=R{}.|    ....|
|00004c50| 20 20 20 20 80 16 20 6f | 3d 30 20 80 18 20 4e 4c |    .. o|=0 .. NL|
|00004c60| 00 20 20 20 20 20 20 6c | 78 28 6f 29 3d 52 7b 7d |.      l|x(o)=R{}|
|00004c70| 00 20 20 20 20 20 20 6c | 79 28 6f 29 3d 52 7b 7d |.      l|y(o)=R{}|
|00004c80| 00 20 20 20 20 20 20 6c | 6c 28 6f 29 3d 52 7b 7d |.      l|l(o)=R{}|
|00004c90| 00 20 20 20 20 80 17 00 | 00 20 20 20 20 80 16 20 |.    ...|.    .. |
|00004ca0| 64 3d 30 20 80 18 20 31 | 35 00 20 20 20 20 20 20 |d=0 .. 1|5.      |
|00004cb0| 80 16 20 71 3d 30 20 80 | 18 20 36 00 20 20 20 20 |.. q=0 .|. 6.    |
|00004cc0| 20 20 20 20 64 6f 6f 72 | 28 71 2c 64 29 3d 52 7b |    door|(q,d)=R{|
|00004cd0| 7d 00 20 20 20 20 20 20 | 80 17 00 20 20 20 20 80 |}.      |...    .|
|00004ce0| 17 00 00 20 20 20 20 80 | 16 20 6c 3d 30 20 80 18 |...    .|. l=0 ..|
|00004cf0| 20 31 35 00 20 20 20 20 | 20 20 80 16 20 71 3d 30 | 15.    |  .. q=0|
|00004d00| 20 80 18 20 34 00 20 20 | 20 20 20 20 20 20 6c 69 | .. 4.  |      li|
|00004d10| 66 74 28 71 2c 6c 29 3d | 52 7b 7d 00 20 20 20 20 |ft(q,l)=|R{}.    |
|00004d20| 20 20 80 17 00 20 20 20 | 20 80 17 00 00 20 20 20 |  ...   | ....   |
|00004d30| 20 80 16 20 6c 3d 30 20 | 80 18 20 31 35 00 20 20 | .. l=0 |.. 15.  |
|00004d40| 20 20 20 20 80 16 20 71 | 3d 30 20 80 18 20 33 00 |    .. q|=0 .. 3.|
|00004d50| 20 20 20 20 20 20 20 20 | 73 77 69 74 63 68 28 71 |        |switch(q|
|00004d60| 2c 6c 29 3d 52 7b 7d 00 | 20 20 20 20 20 20 80 17 |,l)=R{}.|      ..|
|00004d70| 00 20 20 20 20 80 17 00 | 00 20 20 20 20 80 0b 20 |.    ...|.    .. |
|00004d80| 6f 6e 6c 79 6d 61 70 20 | 3b 20 64 6f 6e 27 74 20 |onlymap |; don't |
|00004d90| 6c 6f 61 64 20 77 65 61 | 70 6f 6e 73 2f 65 6e 65 |load wea|pons/ene|
|00004da0| 6d 69 65 73 00 00 20 20 | 20 20 20 20 80 16 20 6c |mies..  |    .. l|
|00004db0| 3d 30 20 80 18 20 39 00 | 20 20 20 20 20 20 20 20 |=0 .. 9.|        |
|00004dc0| 80 16 20 71 3d 30 20 80 | 18 20 35 00 20 20 20 20 |.. q=0 .|. 5.    |
|00004dd0| 20 20 20 20 20 20 4e 55 | 4c 3d 52 7b 7d 00 20 20 |      NU|L=R{}.  |
|00004de0| 20 20 20 20 20 20 80 17 | 00 20 20 20 20 20 20 80 |      ..|.      .|
|00004df0| 17 00 00 20 20 20 20 20 | 20 80 16 20 6c 3d 30 20 |...     | .. l=0 |
|00004e00| 80 18 20 39 00 20 20 20 | 20 20 20 20 20 80 16 20 |.. 9.   |     .. |
|00004e10| 71 3d 30 20 80 18 20 39 | 00 20 20 20 20 20 20 20 |q=0 .. 9|.       |
|00004e20| 20 20 20 4e 55 4c 3d 52 | 7b 7d 00 20 20 20 20 20 |   NUL=R|{}.     |
|00004e30| 20 20 20 80 17 00 20 20 | 20 20 20 20 80 17 00 00 |   ...  |    ....|
|00004e40| 20 20 20 20 20 20 80 16 | 20 6c 3d 30 20 80 18 20 |      ..| l=0 .. |
|00004e50| 31 35 00 20 20 20 20 20 | 20 20 20 80 16 20 71 3d |15.     |   .. q=|
|00004e60| 30 20 80 18 20 31 35 00 | 20 20 20 20 20 20 20 20 |0 .. 15.|        |
|00004e70| 20 20 61 6c 69 73 74 28 | 71 2c 6c 29 3d 52 7b 7d |  alist(|q,l)=R{}|
|00004e80| 00 20 20 20 20 20 20 20 | 20 80 17 00 20 20 20 20 |.       | ...    |
|00004e90| 20 20 80 17 00 00 20 20 | 20 20 20 20 80 16 20 6c |  ....  |    .. l|
|00004ea0| 3d 30 20 80 18 20 31 35 | 00 20 20 20 20 20 20 20 |=0 .. 15|.       |
|00004eb0| 20 80 16 20 71 3d 30 20 | 80 18 20 31 35 00 20 20 | .. q=0 |.. 15.  |
|00004ec0| 20 20 20 20 20 20 20 20 | 61 6d 61 70 28 71 2c 6c |        |amap(q,l|
|00004ed0| 29 3d 52 7b 7d 00 20 20 | 20 20 20 20 20 20 80 17 |)=R{}.  |      ..|
|00004ee0| 00 20 20 20 20 20 20 80 | 17 00 00 20 20 20 20 20 |.      .|...     |
|00004ef0| 20 80 16 20 71 3d 30 20 | 80 18 20 31 35 00 20 20 | .. q=0 |.. 15.  |
|00004f00| 20 20 20 20 20 20 61 74 | 79 70 65 28 71 29 3d 52 |      at|ype(q)=R|
|00004f10| 7b 7d 00 20 20 20 20 20 | 20 80 17 00 00 20 20 20 |{}.     | ....   |
|00004f20| 20 20 20 80 16 20 51 3d | 30 20 80 18 20 34 38 00 |   .. Q=|0 .. 48.|
|00004f30| 20 20 20 20 20 20 20 20 | 74 65 78 74 75 72 65 24 |        |texture$|
|00004f40| 28 51 29 3d da 02 24 28 | 41 44 29 20 3a 20 41 44 |(Q)=..$(|AD) : AD|
|00004f50| 3d 41 44 2b dc 8f 28 74 | 65 78 74 75 72 65 24 28 |=AD+..(t|exture$(|
|00004f60| 51 29 29 2b 31 00 20 20 | 20 20 20 20 80 17 00 20 |Q))+1.  |    ... |
|00004f70| 20 20 20 20 20 54 58 24 | 3d da 02 24 28 41 44 29 |     TX$|=..$(AD)|
|00004f80| 20 3a 20 41 44 3d 41 44 | 2b dc 8f 28 54 58 24 29 | : AD=AD|+..(TX$)|
|00004f90| 2b 31 00 00 20 20 20 20 | 20 20 80 16 20 51 3d 30 |+1..    |  .. Q=0|
|00004fa0| 20 80 18 20 34 38 00 20 | 20 20 20 20 20 20 20 6f | .. 48. |       o|
|00004fb0| 62 6a 65 63 74 24 28 51 | 29 3d da 02 24 28 41 44 |bject$(Q|)=..$(AD|
|00004fc0| 29 20 3a 20 41 44 3d 41 | 44 2b dc 8f 28 6f 62 6a |) : AD=A|D+..(obj|
|00004fd0| 65 63 74 24 28 51 29 29 | 2b 31 00 20 20 20 20 20 |ect$(Q))|+1.     |
|00004fe0| 20 80 17 00 20 20 20 20 | 20 20 54 58 24 3d da 02 | ...    |  TX$=..|
|00004ff0| 24 28 41 44 29 20 3a 20 | 41 44 3d 41 44 2b dc 8f |$(AD) : |AD=AD+..|
|00005000| 28 54 58 24 29 2b 31 00 | 00 20 20 20 20 20 20 80 |(TX$)+1.|.      .|
|00005010| 16 20 51 3d 30 20 80 18 | 20 39 00 20 20 20 20 20 |. Q=0 ..| 9.     |
|00005020| 20 20 20 4e 55 4c 24 3d | da 02 24 28 41 44 29 20 |   NUL$=|..$(AD) |
|00005030| 3a 20 41 44 3d 41 44 2b | dc 8f 28 4e 55 4c 24 29 |: AD=AD+|..(NUL$)|
|00005040| 2b 31 00 20 20 20 20 20 | 20 80 17 00 20 20 20 20 |+1.     | ...    |
|00005050| 20 20 54 58 24 3d da 02 | 24 28 41 44 29 20 3a 20 |  TX$=..|$(AD) : |
|00005060| 41 44 3d 41 44 2b dc 8f | 28 54 58 24 29 2b 31 00 |AD=AD+..|(TX$)+1.|
|00005070| 00 20 20 20 20 20 20 80 | 16 20 51 3d 30 20 80 18 |.      .|. Q=0 ..|
|00005080| 20 39 00 20 20 20 20 20 | 20 20 20 4e 55 4c 24 3d | 9.     |   NUL$=|
|00005090| da 02 24 28 41 44 29 20 | 3a 20 41 44 3d 41 44 2b |..$(AD) |: AD=AD+|
|000050a0| dc 8f 28 4e 55 4c 24 29 | 2b 31 00 20 20 20 20 20 |..(NUL$)|+1.     |
|000050b0| 20 80 17 00 20 20 20 20 | 20 20 54 58 24 3d da 02 | ...    |  TX$=..|
|000050c0| 24 28 41 44 29 20 3a 20 | 41 44 3d 41 44 2b dc 8f |$(AD) : |AD=AD+..|
|000050d0| 28 54 58 24 29 2b 31 00 | 00 20 20 20 20 20 20 80 |(TX$)+1.|.      .|
|000050e0| 16 20 51 3d 30 20 80 18 | 20 39 00 20 20 20 20 20 |. Q=0 ..| 9.     |
|000050f0| 20 20 20 73 66 78 24 28 | 51 29 3d da 02 24 28 41 |   sfx$(|Q)=..$(A|
|00005100| 44 29 20 3a 20 41 44 3d | 41 44 2b dc 8f 28 73 66 |D) : AD=|AD+..(sf|
|00005110| 78 24 28 51 29 29 2b 31 | 00 20 20 20 20 20 20 80 |x$(Q))+1|.      .|
|00005120| 17 00 20 20 20 20 20 20 | 54 58 24 3d da 02 24 28 |..      |TX$=..$(|
|00005130| 41 44 29 20 3a 20 41 44 | 3d 41 44 2b dc 8f 28 54 |AD) : AD|=AD+..(T|
|00005140| 58 24 29 2b 31 00 00 20 | 20 20 20 20 20 80 16 20 |X$)+1.. |     .. |
|00005150| 51 3d 30 20 80 18 20 31 | 35 00 20 20 20 20 20 20 |Q=0 .. 1|5.      |
|00005160| 20 20 61 6e 69 6d 61 74 | 65 24 28 51 29 3d da 02 |  animat|e$(Q)=..|
|00005170| 24 28 41 44 29 20 3a 20 | 41 44 3d 41 44 2b dc 8f |$(AD) : |AD=AD+..|
|00005180| 28 61 6e 69 6d 61 74 65 | 24 28 51 29 29 2b 31 00 |(animate|$(Q))+1.|
|00005190| 20 20 20 20 20 20 80 17 | 00 20 20 20 20 20 20 54 |      ..|.      T|
|000051a0| 58 24 3d da 02 24 28 41 | 44 29 20 3a 20 41 44 3d |X$=..$(A|D) : AD=|
|000051b0| 41 44 2b dc 8f 28 54 58 | 24 29 2b 31 00 00 00 20 |AD+..(TX|$)+1... |
|000051c0| 20 20 20 80 22 20 3b 20 | 6c 6f 61 64 20 65 76 65 |   ." ; |load eve|
|000051d0| 72 79 74 68 69 6e 67 00 | 00 20 20 20 20 20 20 80 |rything.|.      .|
|000051e0| 16 20 6c 3d 30 20 80 18 | 20 39 00 20 20 20 20 20 |. l=0 ..| 9.     |
|000051f0| 20 20 20 80 16 20 71 3d | 30 20 80 18 20 35 00 20 |   .. q=|0 .. 5. |
|00005200| 20 20 20 20 20 20 20 20 | 20 77 74 79 70 65 28 71 |        | wtype(q|
|00005210| 2c 6c 29 3d 52 7b 7d 00 | 20 20 20 20 20 20 20 20 |,l)=R{}.|        |
|00005220| 80 17 00 20 20 20 20 20 | 20 80 17 00 00 20 20 20 |...     | ....   |
|00005230| 20 20 20 80 16 20 6c 3d | 30 20 80 18 20 39 00 20 |   .. l=|0 .. 9. |
|00005240| 20 20 20 20 20 20 20 80 | 16 20 71 3d 30 20 80 18 |       .|. q=0 ..|
|00005250| 20 39 00 20 20 20 20 20 | 20 20 20 20 20 65 74 79 | 9.     |     ety|
|00005260| 70 65 28 71 2c 6c 29 3d | 52 7b 7d 00 20 20 20 20 |pe(q,l)=|R{}.    |
|00005270| 20 20 20 20 80 17 00 20 | 20 20 20 20 20 80 17 00 |    ... |     ...|
|00005280| 00 20 20 20 20 20 20 80 | 16 20 6c 3d 30 20 80 18 |.      .|. l=0 ..|
|00005290| 20 31 35 00 20 20 20 20 | 20 20 20 20 80 16 20 71 | 15.    |    .. q|
|000052a0| 3d 30 20 80 18 20 31 35 | 00 20 20 20 20 20 20 20 |=0 .. 15|.       |
|000052b0| 20 20 20 61 6c 69 73 74 | 28 71 2c 6c 29 3d 52 7b |   alist|(q,l)=R{|
|000052c0| 7d 00 20 20 20 20 20 20 | 20 20 80 17 00 20 20 20 |}.      |  ...   |
|000052d0| 20 20 20 80 17 00 00 20 | 20 20 20 20 20 80 16 20 |   .... |     .. |
|000052e0| 6c 3d 30 20 80 18 20 31 | 35 00 20 20 20 20 20 20 |l=0 .. 1|5.      |
|000052f0| 20 20 80 16 20 71 3d 30 | 20 80 18 20 31 35 00 20 |  .. q=0| .. 15. |
|00005300| 20 20 20 20 20 20 20 20 | 20 61 6d 61 70 28 71 2c |        | amap(q,|
|00005310| 6c 29 3d 52 7b 7d 00 20 | 20 20 20 20 20 20 20 80 |l)=R{}. |       .|
|00005320| 17 00 20 20 20 20 20 20 | 80 17 00 00 20 20 20 20 |..      |....    |
|00005330| 20 20 80 16 20 71 3d 30 | 20 80 18 20 31 35 00 20 |  .. q=0| .. 15. |
|00005340| 20 20 20 20 20 20 20 61 | 74 79 70 65 28 71 29 3d |       a|type(q)=|
|00005350| 52 7b 7d 00 20 20 20 20 | 20 20 80 17 00 00 20 20 |R{}.    |  ....  |
|00005360| 20 20 20 20 80 16 20 51 | 3d 30 20 80 18 20 34 38 |    .. Q|=0 .. 48|
|00005370| 00 20 20 20 20 20 20 20 | 20 74 65 78 74 75 72 65 |.       | texture|
|00005380| 24 28 51 29 3d da 02 24 | 28 41 44 29 20 3a 20 41 |$(Q)=..$|(AD) : A|
|00005390| 44 3d 41 44 2b dc 8f 28 | 74 65 78 74 75 72 65 24 |D=AD+..(|texture$|
|000053a0| 28 51 29 29 2b 31 00 20 | 20 20 20 20 20 80 17 00 |(Q))+1. |     ...|
|000053b0| 20 20 20 20 20 20 54 58 | 24 3d da 02 24 28 41 44 |      TX|$=..$(AD|
|000053c0| 29 20 3a 20 41 44 3d 41 | 44 2b dc 8f 28 54 58 24 |) : AD=A|D+..(TX$|
|000053d0| 29 2b 31 00 00 20 20 20 | 20 20 20 80 16 20 51 3d |)+1..   |   .. Q=|
|000053e0| 30 20 80 18 20 34 38 00 | 20 20 20 20 20 20 20 20 |0 .. 48.|        |
|000053f0| 6f 62 6a 65 63 74 24 28 | 51 29 3d da 02 24 28 41 |object$(|Q)=..$(A|
|00005400| 44 29 20 3a 20 41 44 3d | 41 44 2b dc 8f 28 6f 62 |D) : AD=|AD+..(ob|
|00005410| 6a 65 63 74 24 28 51 29 | 29 2b 31 00 20 20 20 20 |ject$(Q)|)+1.    |
|00005420| 20 20 80 17 00 20 20 20 | 20 20 20 54 58 24 3d da |  ...   |   TX$=.|
|00005430| 02 24 28 41 44 29 20 3a | 20 41 44 3d 41 44 2b dc |.$(AD) :| AD=AD+.|
|00005440| 8f 28 54 58 24 29 2b 31 | 00 00 20 20 20 20 20 20 |.(TX$)+1|..      |
|00005450| 80 16 20 51 3d 30 20 80 | 18 20 39 00 20 20 20 20 |.. Q=0 .|. 9.    |
|00005460| 20 20 20 20 65 6e 65 6d | 79 24 28 51 29 3d da 02 |    enem|y$(Q)=..|
|00005470| 24 28 41 44 29 20 3a 20 | 41 44 3d 41 44 2b dc 8f |$(AD) : |AD=AD+..|
|00005480| 28 65 6e 65 6d 79 24 28 | 51 29 29 2b 31 00 20 20 |(enemy$(|Q))+1.  |
|00005490| 20 20 20 20 80 17 00 20 | 20 20 20 20 20 54 58 24 |    ... |     TX$|
|000054a0| 3d da 02 24 28 41 44 29 | 20 3a 20 41 44 3d 41 44 |=..$(AD)| : AD=AD|
|000054b0| 2b dc 8f 28 54 58 24 29 | 2b 31 00 00 20 20 20 20 |+..(TX$)|+1..    |
|000054c0| 20 20 80 16 20 51 3d 30 | 20 80 18 20 39 00 20 20 |  .. Q=0| .. 9.  |
|000054d0| 20 20 20 20 20 20 77 65 | 61 70 6f 6e 24 28 51 29 |      we|apon$(Q)|
|000054e0| 3d da 02 24 28 41 44 29 | 20 3a 20 41 44 3d 41 44 |=..$(AD)| : AD=AD|
|000054f0| 2b dc 8f 28 77 65 61 70 | 6f 6e 24 28 51 29 29 2b |+..(weap|on$(Q))+|
|00005500| 31 00 20 20 20 20 20 20 | 80 17 00 20 20 20 20 20 |1.      |...     |
|00005510| 20 54 58 24 3d da 02 24 | 28 41 44 29 20 3a 20 41 | TX$=..$|(AD) : A|
|00005520| 44 3d 41 44 2b dc 8f 28 | 54 58 24 29 2b 31 00 00 |D=AD+..(|TX$)+1..|
|00005530| 20 20 20 20 20 20 80 16 | 20 51 3d 30 20 80 18 20 |      ..| Q=0 .. |
|00005540| 39 00 20 20 20 20 20 20 | 20 20 73 66 78 24 28 51 |9.      |  sfx$(Q|
|00005550| 29 3d da 02 24 28 41 44 | 29 20 3a 20 41 44 3d 41 |)=..$(AD|) : AD=A|
|00005560| 44 2b dc 8f 28 73 66 78 | 24 28 51 29 29 2b 31 00 |D+..(sfx|$(Q))+1.|
|00005570| 20 20 20 20 20 20 80 17 | 00 20 20 20 20 20 20 54 |      ..|.      T|
|00005580| 58 24 3d da 02 24 28 41 | 44 29 20 3a 20 41 44 3d |X$=..$(A|D) : AD=|
|00005590| 41 44 2b dc 8f 28 54 58 | 24 29 2b 31 00 00 20 20 |AD+..(TX|$)+1..  |
|000055a0| 20 20 20 20 80 16 20 51 | 3d 30 20 80 18 20 31 35 |    .. Q|=0 .. 15|
|000055b0| 00 20 20 20 20 20 20 20 | 20 61 6e 69 6d 61 74 65 |.       | animate|
|000055c0| 24 28 51 29 3d da 02 24 | 28 41 44 29 20 3a 20 41 |$(Q)=..$|(AD) : A|
|000055d0| 44 3d 41 44 2b dc 8f 28 | 61 6e 69 6d 61 74 65 24 |D=AD+..(|animate$|
|000055e0| 28 51 29 29 2b 31 00 20 | 20 20 20 20 20 80 17 00 |(Q))+1. |     ...|
|000055f0| 20 20 20 20 20 20 54 58 | 24 3d da 02 24 28 41 44 |      TX|$=..$(AD|
|00005600| 29 20 3a 20 41 44 3d 41 | 44 2b dc 8f 28 54 58 24 |) : AD=A|D+..(TX$|
|00005610| 29 2b 31 00 00 20 20 20 | 20 80 02 20 80 0b 00 00 |)+1..   | .. ....|
|00005620| 20 20 20 20 a6 03 20 31 | 00 00 20 20 80 02 20 80 |    .. 1|..  .. .|
|00005630| 0b 00 00 80 02 20 80 08 | 00 00 2e 67 65 74 62 61 |..... ..|...getba|
|00005640| 6e 6b 00 80 09 20 67 65 | 74 62 61 6e 6b 7b 7d 00 |nk... ge|tbank{}.|
|00005650| 00 20 20 3b 20 70 61 63 | 6b 20 6c 65 76 65 6c 20 |.  ; pac|k level |
|00005660| 69 6e 20 62 61 6e 6b 00 | 00 20 20 80 15 20 4e 53 |in bank.|.  .. NS|
|00005670| 2c 78 67 28 29 2c 79 67 | 28 29 2c 6a 6f 69 6e 28 |,xg(),yg|(),join(|
|00005680| 29 2c 74 6f 70 28 29 2c | 62 6f 74 74 6f 6d 28 29 |),top(),|bottom()|
|00005690| 2c 63 6f 75 6e 74 28 29 | 2c 68 65 69 67 68 74 28 |,count()|,height(|
|000056a0| 29 2c 74 78 28 29 2c 73 | 65 63 2c 78 73 74 61 72 |),tx(),s|ec,xstar|
|000056b0| 74 2c 79 73 74 61 72 74 | 2c 73 65 63 73 74 61 72 |t,ystart|,secstar|
|000056c0| 74 2c 4e 00 20 20 80 15 | 20 4e 4f 2c 4e 45 2c 4e |t,N.  ..| NO,NE,N|
|000056d0| 4c 2c 6f 78 28 29 2c 6f | 79 28 29 2c 6f 73 65 63 |L,ox(),o|y(),osec|
|000056e0| 28 29 2c 6f 69 6d 61 67 | 65 28 29 2c 6f 6d 6f 64 |(),oimag|e(),omod|
|000056f0| 65 28 29 2c 6c 78 28 29 | 2c 6c 79 28 29 2c 6c 6c |e(),lx()|,ly(),ll|
|00005700| 28 29 2c 73 65 63 6c 28 | 29 00 20 20 80 15 20 74 |(),secl(|).  .. t|
|00005710| 78 77 28 29 2c 6f 68 69 | 74 28 29 2c 6f 70 69 63 |xw(),ohi|t(),opic|
|00005720| 6b 28 29 2c 64 6f 6f 72 | 28 29 2c 6c 69 66 74 28 |k(),door|(),lift(|
|00005730| 29 2c 73 77 69 74 63 68 | 28 29 2c 65 66 66 65 63 |),switch|(),effec|
|00005740| 74 28 29 2c 77 74 79 70 | 65 28 29 2c 65 74 79 70 |t(),wtyp|e(),etyp|
|00005750| 65 28 29 00 20 20 80 15 | 20 74 65 78 74 75 72 65 |e().  ..| texture|
|00005760| 24 28 29 2c 6f 62 6a 65 | 63 74 24 28 29 2c 65 6e |$(),obje|ct$(),en|
|00005770| 65 6d 79 24 28 29 2c 77 | 65 61 70 6f 6e 24 28 29 |emy$(),w|eapon$()|
|00005780| 2c 73 66 78 24 28 29 2c | 61 6e 69 6d 61 74 65 24 |,sfx$(),|animate$|
|00005790| 28 29 2c 6d 6f 64 65 28 | 29 2c 64 61 6d 61 67 65 |(),mode(|),damage|
|000057a0| 28 29 2c 70 69 63 6b 75 | 70 28 29 2c 61 6c 69 73 |(),picku|p(),alis|
|000057b0| 74 28 29 2c 61 6d 61 70 | 28 29 2c 61 74 79 70 65 |t(),amap|(),atype|
|000057c0| 28 29 2c 6f 73 6f 75 6e | 64 28 29 00 00 20 20 80 |(),osoun|d()..  .|
|000057d0| 16 20 73 3d 30 20 80 18 | 20 4e 53 00 20 20 20 20 |. s=0 ..| NS.    |
|000057e0| 80 0b 20 63 6f 75 6e 74 | 28 73 29 3e 30 00 20 20 |.. count|(s)>0.  |
|000057f0| 20 20 20 20 63 6f 75 6e | 74 28 73 29 3d a5 89 28 |    coun|t(s)=..(|
|00005800| 63 6f 75 6e 74 28 73 29 | 2c 39 29 00 20 20 20 20 |count(s)|,9).    |
|00005810| 20 20 80 16 20 71 3d 30 | 20 80 18 20 63 6f 75 6e |  .. q=0| .. coun|
|00005820| 74 28 73 29 00 20 20 20 | 20 20 20 20 20 80 0b 20 |t(s).   |     .. |
|00005830| 6a 6f 69 6e 28 71 2c 73 | 29 3e 2d 31 20 80 42 20 |join(q,s|)>-1 .B |
|00005840| 6a 6f 69 6e 28 71 2c 73 | 29 3c 3d 4e 53 00 20 20 |join(q,s|)<=NS.  |
|00005850| 20 20 20 20 20 20 20 20 | 6a 31 3d 30 00 20 20 20 |        |j1=0.   |
|00005860| 20 20 20 20 20 20 20 6a | 3d 6a 6f 69 6e 28 71 2c |       j|=join(q,|
|00005870| 73 29 00 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |s).     |     .. |
|00005880| 63 6f 75 6e 74 28 6a 29 | 3e 30 00 20 20 20 20 20 |count(j)|>0.     |
|00005890| 20 20 20 20 20 20 20 80 | 16 20 77 3d 30 20 80 18 |       .|. w=0 ..|
|000058a0| 20 63 6f 75 6e 74 28 6a | 29 00 20 20 20 20 20 20 | count(j|).      |
|000058b0| 20 20 20 20 20 20 20 20 | 80 0b 20 78 67 28 31 2c |        |.. xg(1,|
|000058c0| 77 2c 6a 29 3d 78 67 28 | 30 2c 71 2c 73 29 20 80 |w,j)=xg(|0,q,s) .|
|000058d0| 42 20 79 67 28 31 2c 77 | 2c 6a 29 3d 79 67 28 30 |B yg(1,w|,j)=yg(0|
|000058e0| 2c 71 2c 73 29 00 20 20 | 20 20 20 20 20 20 20 20 |,q,s).  |        |
|000058f0| 20 20 20 20 20 20 80 0b | 20 78 67 28 30 2c 77 2c |      ..| xg(0,w,|
|00005900| 6a 29 3d 78 67 28 31 2c | 71 2c 73 29 20 80 42 20 |j)=xg(1,|q,s) .B |
|00005910| 79 67 28 30 2c 77 2c 6a | 29 3d 79 67 28 31 2c 71 |yg(0,w,j|)=yg(1,q|
|00005920| 2c 73 29 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |,s).    |        |
|00005930| 20 20 20 20 20 20 6a 31 | 3d 2d 31 00 20 20 20 20 |      j1|=-1.    |
|00005940| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 02 20 80 |        |    .. .|
|00005950| 0b 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005960| 80 02 20 80 0b 00 20 20 | 20 20 20 20 20 20 20 20 |.. ...  |        |
|00005970| 20 20 80 17 00 20 20 20 | 20 20 20 20 20 20 20 80 |  ...   |       .|
|00005980| 02 20 80 0b 00 20 20 20 | 20 20 20 20 20 20 20 80 |. ...   |       .|
|00005990| 0b 20 6a 31 00 20 20 20 | 20 20 20 20 20 20 20 20 |. j1.   |        |
|000059a0| 20 74 6f 70 28 71 2c 73 | 29 3d a5 8d 28 30 2c 68 | top(q,s|)=..(0,h|
|000059b0| 65 69 67 68 74 28 31 2c | 73 29 2d 68 65 69 67 68 |eight(1,|s)-heigh|
|000059c0| 74 28 31 2c 6a 6f 69 6e | 28 71 2c 73 29 29 29 00 |t(1,join|(q,s))).|
|000059d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 6f 74 74 |        |    bott|
|000059e0| 6f 6d 28 71 2c 73 29 3d | a5 89 28 68 65 69 67 68 |om(q,s)=|..(heigh|
|000059f0| 74 28 31 2c 73 29 2d 68 | 65 69 67 68 74 28 30 2c |t(1,s)-h|eight(0,|
|00005a00| 73 29 2c 68 65 69 67 68 | 74 28 31 2c 73 29 2d 68 |s),heigh|t(1,s)-h|
|00005a10| 65 69 67 68 74 28 30 2c | 6a 6f 69 6e 28 71 2c 73 |eight(0,|join(q,s|
|00005a20| 29 29 29 00 20 20 20 20 | 20 20 20 20 20 20 80 22 |))).    |      ."|
|00005a30| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 74 6f 70 |.       |     top|
|00005a40| 28 71 2c 73 29 3d 2d 31 | 00 20 20 20 20 20 20 20 |(q,s)=-1|.       |
|00005a50| 20 20 20 20 20 62 6f 74 | 74 6f 6d 28 71 2c 73 29 |     bot|tom(q,s)|
|00005a60| 3d 2d 31 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |=-1.    |        |
|00005a70| 6a 6f 69 6e 28 71 2c 73 | 29 3d 2d 31 00 20 20 20 |join(q,s|)=-1.   |
|00005a80| 20 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |       .|. ...   |
|00005a90| 20 20 20 20 20 80 22 00 | 20 20 20 20 20 20 20 20 |     .".|        |
|00005aa0| 20 20 74 6f 70 28 71 2c | 73 29 3d 2d 31 00 20 20 |  top(q,|s)=-1.  |
|00005ab0| 20 20 20 20 20 20 20 20 | 62 6f 74 74 6f 6d 28 71 |        |bottom(q|
|00005ac0| 2c 73 29 3d 2d 31 00 20 | 20 20 20 20 20 20 20 80 |,s)=-1. |       .|
|00005ad0| 02 20 80 0b 00 20 20 20 | 20 20 20 80 17 00 20 20 |. ...   |   ...  |
|00005ae0| 20 20 80 02 20 80 0b 00 | 20 20 80 17 00 00 20 20 |  .. ...|  ....  |
|00005af0| a6 02 20 30 2c 36 34 30 | 30 30 2c 36 35 35 33 36 |.. 0,640|00,65536|
|00005b00| 00 20 20 61 64 3d a6 01 | 28 30 29 00 00 20 20 da |.  ad=..|(0)..  .|
|00005b10| 01 2e 6c 20 61 64 2c 78 | 73 74 61 72 74 20 3a 20 |..l ad,x|start : |
|00005b20| 61 64 3d 61 64 2b 34 00 | 20 20 da 01 2e 6c 20 61 |ad=ad+4.|  ...l a|
|00005b30| 64 2c 79 73 74 61 72 74 | 20 3a 20 61 64 3d 61 64 |d,ystart| : ad=ad|
|00005b40| 2b 34 00 20 20 da 01 2e | 6c 20 61 64 2c 73 65 63 |+4.  ...|l ad,sec|
|00005b50| 73 74 61 72 74 20 3a 20 | 61 64 3d 61 64 2b 34 00 |start : |ad=ad+4.|
|00005b60| 20 20 da 01 2e 6c 20 61 | 64 2c 73 65 63 20 3a 20 |  ...l a|d,sec : |
|00005b70| 61 64 3d 61 64 2b 34 00 | 00 20 20 80 16 20 73 3d |ad=ad+4.|.  .. s=|
|00005b80| 30 20 80 18 20 31 39 31 | 00 20 20 20 20 da 01 2e |0 .. 191|.    ...|
|00005b90| 6c 20 61 64 2c 63 6f 75 | 6e 74 28 73 29 20 3a 20 |l ad,cou|nt(s) : |
|00005ba0| 61 64 3d 61 64 2b 34 00 | 20 20 20 20 da 01 2e 6c |ad=ad+4.|    ...l|
|00005bb0| 20 61 64 2c 68 65 69 67 | 68 74 28 30 2c 73 29 20 | ad,heig|ht(0,s) |
|00005bc0| 3a 20 61 64 3d 61 64 2b | 34 00 20 20 20 20 da 01 |: ad=ad+|4.    ..|
|00005bd0| 2e 6c 20 61 64 2c 68 65 | 69 67 68 74 28 31 2c 73 |.l ad,he|ight(1,s|
|00005be0| 29 20 3a 20 61 64 3d 61 | 64 2b 34 00 20 20 20 20 |) : ad=a|d+4.    |
|00005bf0| da 01 2e 6c 20 61 64 2c | 74 78 28 30 2c 73 29 20 |...l ad,|tx(0,s) |
|00005c00| 3a 20 61 64 3d 61 64 2b | 34 00 20 20 20 20 da 01 |: ad=ad+|4.    ..|
|00005c10| 2e 6c 20 61 64 2c 74 78 | 28 31 2c 73 29 20 3a 20 |.l ad,tx|(1,s) : |
|00005c20| 61 64 3d 61 64 2b 34 00 | 20 20 20 20 da 01 2e 6c |ad=ad+4.|    ...l|
|00005c30| 20 61 64 2c 65 66 66 65 | 63 74 28 73 29 20 3a 20 | ad,effe|ct(s) : |
|00005c40| 61 64 3d 61 64 2b 34 00 | 20 20 20 20 80 16 20 71 |ad=ad+4.|    .. q|
|00005c50| 3d 30 20 80 18 20 37 00 | 20 20 20 20 20 20 da 01 |=0 .. 7.|      ..|
|00005c60| 2e 6c 20 61 64 2c 73 65 | 63 6c 28 71 2c 73 29 20 |.l ad,se|cl(q,s) |
|00005c70| 3a 20 61 64 3d 61 64 2b | 34 00 20 20 20 20 80 17 |: ad=ad+|4.    ..|
|00005c80| 00 20 20 20 20 80 16 20 | 71 3d 30 20 80 18 20 63 |.    .. |q=0 .. c|
|00005c90| 6f 75 6e 74 28 73 29 00 | 20 20 20 20 20 20 80 16 |ount(s).|      ..|
|00005ca0| 20 77 3d 30 20 80 18 20 | 31 00 20 20 20 20 20 20 | w=0 .. |1.      |
|00005cb0| 20 20 da 01 2e 6c 20 61 | 64 2c 78 67 28 77 2c 71 |  ...l a|d,xg(w,q|
|00005cc0| 2c 73 29 20 3a 20 61 64 | 3d 61 64 2b 34 00 20 20 |,s) : ad|=ad+4.  |
|00005cd0| 20 20 20 20 20 20 da 01 | 2e 6c 20 61 64 2c 79 67 |      ..|.l ad,yg|
|00005ce0| 28 77 2c 71 2c 73 29 20 | 3a 20 61 64 3d 61 64 2b |(w,q,s) |: ad=ad+|
|00005cf0| 34 00 20 20 20 20 20 20 | 80 17 00 20 20 20 20 20 |4.      |...     |
|00005d00| 20 da 01 2e 6c 20 61 64 | 2c 6a 6f 69 6e 28 71 2c | ...l ad|,join(q,|
|00005d10| 73 29 20 3a 20 61 64 3d | 61 64 2b 34 00 20 20 20 |s) : ad=|ad+4.   |
|00005d20| 20 20 20 da 01 2e 6c 20 | 61 64 2c 74 6f 70 28 71 |   ...l |ad,top(q|
|00005d30| 2c 73 29 20 3a 20 61 64 | 3d 61 64 2b 34 00 20 20 |,s) : ad|=ad+4.  |
|00005d40| 20 20 20 20 da 01 2e 6c | 20 61 64 2c 62 6f 74 74 |    ...l| ad,bott|
|00005d50| 6f 6d 28 71 2c 73 29 20 | 3a 20 61 64 3d 61 64 2b |om(q,s) |: ad=ad+|
|00005d60| 34 00 20 20 20 20 20 20 | da 01 2e 6c 20 61 64 2c |4.      |...l ad,|
|00005d70| 74 78 77 28 30 2c 71 2c | 73 29 20 3a 20 61 64 3d |txw(0,q,|s) : ad=|
|00005d80| 61 64 2b 34 00 20 20 20 | 20 20 20 da 01 2e 6c 20 |ad+4.   |   ...l |
|00005d90| 61 64 2c 74 78 77 28 31 | 2c 71 2c 73 29 20 3a 20 |ad,txw(1|,q,s) : |
|00005da0| 61 64 3d 61 64 2b 34 00 | 20 20 20 20 80 17 00 20 |ad=ad+4.|    ... |
|00005db0| 20 80 17 00 00 20 20 80 | 16 20 6f 3d 30 20 80 18 | ....  .|. o=0 ..|
|00005dc0| 20 4e 4f 2b 4e 45 00 20 | 20 20 20 da 01 2e 6c 20 | NO+NE. |   ...l |
|00005dd0| 61 64 2c 6f 78 28 6f 29 | 20 3a 20 61 64 3d 61 64 |ad,ox(o)| : ad=ad|
|00005de0| 2b 34 00 20 20 20 20 da | 01 2e 6c 20 61 64 2c 6f |+4.    .|..l ad,o|
|00005df0| 79 28 6f 29 20 3a 20 61 | 64 3d 61 64 2b 34 00 20 |y(o) : a|d=ad+4. |
|00005e00| 20 20 20 da 01 2e 6c 20 | 61 64 2c 6f 73 65 63 28 |   ...l |ad,osec(|
|00005e10| 6f 29 20 3a 20 61 64 3d | 61 64 2b 34 00 20 20 20 |o) : ad=|ad+4.   |
|00005e20| 20 da 01 2e 6c 20 61 64 | 2c 6f 69 6d 61 67 65 28 | ...l ad|,oimage(|
|00005e30| 30 2c 6f 29 20 3a 20 61 | 64 3d 61 64 2b 34 00 20 |0,o) : a|d=ad+4. |
|00005e40| 20 20 20 da 01 2e 6c 20 | 61 64 2c 6f 6d 6f 64 65 |   ...l |ad,omode|
|00005e50| 28 30 2c 6f 29 20 3a 20 | 61 64 3d 61 64 2b 34 00 |(0,o) : |ad=ad+4.|
|00005e60| 20 20 20 20 da 01 2e 6c | 20 61 64 2c 6f 69 6d 61 |    ...l| ad,oima|
|00005e70| 67 65 28 31 2c 6f 29 20 | 3a 20 61 64 3d 61 64 2b |ge(1,o) |: ad=ad+|
|00005e80| 34 00 20 20 20 20 da 01 | 2e 6c 20 61 64 2c 6f 6d |4.    ..|.l ad,om|
|00005e90| 6f 64 65 28 31 2c 6f 29 | 20 3a 20 61 64 3d 61 64 |ode(1,o)| : ad=ad|
|00005ea0| 2b 34 00 20 20 20 20 da | 01 2e 6c 20 61 64 2c 6f |+4.    .|..l ad,o|
|00005eb0| 68 69 74 28 6f 29 20 3a | 20 61 64 3d 61 64 2b 34 |hit(o) :| ad=ad+4|
|00005ec0| 00 20 20 20 20 da 01 2e | 6c 20 61 64 2c 6f 70 69 |.    ...|l ad,opi|
|00005ed0| 63 6b 28 6f 29 20 3a 20 | 61 64 3d 61 64 2b 34 00 |ck(o) : |ad=ad+4.|
|00005ee0| 20 20 20 20 da 01 2e 6c | 20 61 64 2c 6f 73 6f 75 |    ...l| ad,osou|
|00005ef0| 6e 64 28 6f 29 20 3a 20 | 61 64 3d 61 64 2b 34 00 |nd(o) : |ad=ad+4.|
|00005f00| 20 20 80 17 00 00 20 20 | 80 16 20 6f 3d 30 20 80 |  ....  |.. o=0 .|
|00005f10| 18 20 4e 4c 00 20 20 20 | 20 da 01 2e 6c 20 61 64 |. NL.   | ...l ad|
|00005f20| 2c 6c 78 28 6f 29 20 3a | 20 61 64 3d 61 64 2b 34 |,lx(o) :| ad=ad+4|
|00005f30| 00 20 20 20 20 da 01 2e | 6c 20 61 64 2c 6c 79 28 |.    ...|l ad,ly(|
|00005f40| 6f 29 20 3a 20 61 64 3d | 61 64 2b 34 00 20 20 20 |o) : ad=|ad+4.   |
|00005f50| 20 da 01 2e 6c 20 61 64 | 2c 6c 6c 28 6f 29 20 3a | ...l ad|,ll(o) :|
|00005f60| 20 61 64 3d 61 64 2b 34 | 00 20 20 80 17 00 00 20 | ad=ad+4|.  .... |
|00005f70| 20 80 16 20 64 3d 30 20 | 80 18 20 31 35 00 20 20 | .. d=0 |.. 15.  |
|00005f80| 20 20 80 16 20 71 3d 30 | 20 80 18 20 36 00 20 20 |  .. q=0| .. 6.  |
|00005f90| 20 20 20 20 da 01 2e 6c | 20 61 64 2c 64 6f 6f 72 |    ...l| ad,door|
|00005fa0| 28 71 2c 64 29 20 3a 20 | 61 64 3d 61 64 2b 34 00 |(q,d) : |ad=ad+4.|
|00005fb0| 20 20 20 20 80 17 00 20 | 20 80 17 00 00 20 20 80 |    ... | ....  .|
|00005fc0| 16 20 6c 3d 30 20 80 18 | 20 31 35 00 20 20 20 20 |. l=0 ..| 15.    |
|00005fd0| 80 16 20 71 3d 30 20 80 | 18 20 34 00 20 20 20 20 |.. q=0 .|. 4.    |
|00005fe0| 20 20 da 01 2e 6c 20 61 | 64 2c 6c 69 66 74 28 71 |  ...l a|d,lift(q|
|00005ff0| 2c 6c 29 20 3a 20 61 64 | 3d 61 64 2b 34 00 20 20 |,l) : ad|=ad+4.  |
|00006000| 20 20 80 17 00 20 20 80 | 17 00 00 20 20 80 16 20 |  ...  .|...  .. |
|00006010| 6c 3d 30 20 80 18 20 31 | 35 00 20 20 20 20 80 16 |l=0 .. 1|5.    ..|
|00006020| 20 71 3d 30 20 80 18 20 | 33 00 20 20 20 20 20 20 | q=0 .. |3.      |
|00006030| da 01 2e 6c 20 61 64 2c | 73 77 69 74 63 68 28 71 |...l ad,|switch(q|
|00006040| 2c 6c 29 20 3a 20 61 64 | 3d 61 64 2b 34 00 20 20 |,l) : ad|=ad+4.  |
|00006050| 20 20 80 17 00 20 20 80 | 17 00 00 20 20 80 16 20 |  ...  .|...  .. |
|00006060| 6c 3d 30 20 80 18 20 39 | 00 20 20 20 20 80 16 20 |l=0 .. 9|.    .. |
|00006070| 71 3d 30 20 80 18 20 35 | 00 20 20 20 20 20 20 da |q=0 .. 5|.      .|
|00006080| 01 2e 6c 20 61 64 2c 77 | 74 79 70 65 28 71 2c 6c |..l ad,w|type(q,l|
|00006090| 29 20 3a 20 61 64 3d 61 | 64 2b 34 00 20 20 20 20 |) : ad=a|d+4.    |
|000060a0| 80 17 00 20 20 80 17 00 | 00 20 20 80 16 20 6c 3d |...  ...|.  .. l=|
|000060b0| 30 20 80 18 20 39 00 20 | 20 20 20 80 16 20 71 3d |0 .. 9. |   .. q=|
|000060c0| 30 20 80 18 20 39 00 20 | 20 20 20 20 20 da 01 2e |0 .. 9. |     ...|
|000060d0| 6c 20 61 64 2c 65 74 79 | 70 65 28 71 2c 6c 29 20 |l ad,ety|pe(q,l) |
|000060e0| 3a 20 61 64 3d 61 64 2b | 34 00 20 20 20 20 80 17 |: ad=ad+|4.    ..|
|000060f0| 00 20 20 80 17 00 00 20 | 20 80 16 20 6c 3d 30 20 |.  .... | .. l=0 |
|00006100| 80 18 20 31 35 00 20 20 | 20 20 80 16 20 71 3d 30 |.. 15.  |  .. q=0|
|00006110| 20 80 18 20 31 35 00 20 | 20 20 20 20 20 da 01 2e | .. 15. |     ...|
|00006120| 6c 20 61 64 2c 61 6c 69 | 73 74 28 71 2c 6c 29 20 |l ad,ali|st(q,l) |
|00006130| 3a 20 61 64 3d 61 64 2b | 34 00 20 20 20 20 80 17 |: ad=ad+|4.    ..|
|00006140| 00 20 20 80 17 00 00 20 | 20 80 16 20 6c 3d 30 20 |.  .... | .. l=0 |
|00006150| 80 18 20 31 35 00 20 20 | 20 20 80 16 20 71 3d 30 |.. 15.  |  .. q=0|
|00006160| 20 80 18 20 31 35 00 20 | 20 20 20 20 20 da 01 2e | .. 15. |     ...|
|00006170| 6c 20 61 64 2c 61 6d 61 | 70 28 71 2c 6c 29 20 3a |l ad,ama|p(q,l) :|
|00006180| 20 61 64 3d 61 64 2b 34 | 00 20 20 20 20 80 17 00 | ad=ad+4|.    ...|
|00006190| 20 20 80 17 00 00 20 20 | 80 16 20 71 3d 30 20 80 |  ....  |.. q=0 .|
|000061a0| 18 20 31 35 00 20 20 20 | 20 da 01 2e 6c 20 61 64 |. 15.   | ...l ad|
|000061b0| 2c 61 74 79 70 65 28 71 | 29 20 3a 20 61 64 3d 61 |,atype(q|) : ad=a|
|000061c0| 64 2b 34 00 20 20 80 17 | 00 00 20 20 80 16 20 71 |d+4.  ..|..  .. q|
|000061d0| 3d 30 20 80 18 20 34 38 | 00 20 20 20 20 da 01 24 |=0 .. 48|.    ..$|
|000061e0| 20 61 64 2c 74 65 78 74 | 75 72 65 24 28 71 29 20 | ad,text|ure$(q) |
|000061f0| 3a 20 61 64 3d 61 64 2b | dc 8f 28 74 65 78 74 75 |: ad=ad+|..(textu|
|00006200| 72 65 24 28 71 29 29 2b | 31 00 20 20 80 17 00 20 |re$(q))+|1.  ... |
|00006210| 20 da 01 24 20 61 64 2c | 22 53 54 4f 50 22 20 3a | ..$ ad,|"STOP" :|
|00006220| 20 61 64 3d 61 64 2b 35 | 00 00 20 20 80 16 20 71 | ad=ad+5|..  .. q|
|00006230| 3d 30 20 80 18 20 34 38 | 00 20 20 20 20 da 01 24 |=0 .. 48|.    ..$|
|00006240| 20 61 64 2c 6f 62 6a 65 | 63 74 24 28 71 29 20 3a | ad,obje|ct$(q) :|
|00006250| 20 61 64 3d 61 64 2b dc | 8f 28 6f 62 6a 65 63 74 | ad=ad+.|.(object|
|00006260| 24 28 71 29 29 2b 31 00 | 20 20 80 17 00 20 20 da |$(q))+1.|  ...  .|
|00006270| 01 24 20 61 64 2c 22 53 | 54 4f 50 22 20 3a 20 61 |.$ ad,"S|TOP" : a|
|00006280| 64 3d 61 64 2b 35 00 00 | 20 20 80 16 20 71 3d 30 |d=ad+5..|  .. q=0|
|00006290| 20 80 18 20 39 00 20 20 | 20 20 da 01 24 20 61 64 | .. 9.  |  ..$ ad|
|000062a0| 2c 65 6e 65 6d 79 24 28 | 71 29 20 3a 20 61 64 3d |,enemy$(|q) : ad=|
|000062b0| 61 64 2b dc 8f 28 65 6e | 65 6d 79 24 28 71 29 29 |ad+..(en|emy$(q))|
|000062c0| 2b 31 00 20 20 80 17 00 | 20 20 da 01 24 20 61 64 |+1.  ...|  ..$ ad|
|000062d0| 2c 22 53 54 4f 50 22 20 | 3a 20 61 64 3d 61 64 2b |,"STOP" |: ad=ad+|
|000062e0| 35 00 00 20 20 80 16 20 | 71 3d 30 20 80 18 20 39 |5..  .. |q=0 .. 9|
|000062f0| 00 20 20 20 20 da 01 24 | 20 61 64 2c 77 65 61 70 |.    ..$| ad,weap|
|00006300| 6f 6e 24 28 71 29 20 3a | 20 61 64 3d 61 64 2b dc |on$(q) :| ad=ad+.|
|00006310| 8f 28 77 65 61 70 6f 6e | 24 28 71 29 29 2b 31 00 |.(weapon|$(q))+1.|
|00006320| 20 20 80 17 00 20 20 da | 01 24 20 61 64 2c 22 53 |  ...  .|.$ ad,"S|
|00006330| 54 4f 50 22 20 3a 20 61 | 64 3d 61 64 2b 35 00 00 |TOP" : a|d=ad+5..|
|00006340| 20 20 80 16 20 71 3d 30 | 20 80 18 20 39 00 20 20 |  .. q=0| .. 9.  |
|00006350| 20 20 da 01 24 20 61 64 | 2c 73 66 78 24 28 71 29 |  ..$ ad|,sfx$(q)|
|00006360| 20 3a 20 61 64 3d 61 64 | 2b dc 8f 28 73 66 78 24 | : ad=ad|+..(sfx$|
|00006370| 28 71 29 29 2b 31 00 20 | 20 80 17 00 20 20 da 01 |(q))+1. | ...  ..|
|00006380| 24 20 61 64 2c 22 53 54 | 4f 50 22 20 3a 20 61 64 |$ ad,"ST|OP" : ad|
|00006390| 3d 61 64 2b 35 00 00 20 | 20 80 16 20 71 3d 30 20 |=ad+5.. | .. q=0 |
|000063a0| 80 18 20 31 35 00 20 20 | 20 20 da 01 24 20 61 64 |.. 15.  |  ..$ ad|
|000063b0| 2c 61 6e 69 6d 61 74 65 | 24 28 71 29 20 3a 20 61 |,animate|$(q) : a|
|000063c0| 64 3d 61 64 2b dc 8f 28 | 61 6e 69 6d 61 74 65 24 |d=ad+..(|animate$|
|000063d0| 28 71 29 29 2b 31 00 20 | 20 80 17 00 20 20 da 01 |(q))+1. | ...  ..|
|000063e0| 24 20 61 64 2c 22 53 54 | 4f 50 22 20 3a 20 61 64 |$ ad,"ST|OP" : ad|
|000063f0| 3d 61 64 2b 35 00 00 20 | 20 80 0b 20 61 64 2d a6 |=ad+5.. | .. ad-.|
+--------+-------------------------+-------------------------+--------+--------+